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Os sete jogos contidos neste volume tem uma caracterfstica unica: 
o leitor participa do processo de criacao acompanhando a montagem 
linha oor linha. 

i 

Modificacoes e aperfeicoamentos sao propostos e resolvidos com 
detalhes. Ao terminar este livro o leitor alem de ter sete jogos geniais, 
tera adquirido a habilidade de programar com criatividade. 

Uma obra didaiica indispensavel ao usuario de urn micro da linha 
SINCLAIR: Ringo R-470, CP-200, TK 82/83/85, AS-1000, SINCLAI R 
ZX-81 ou TS-1000. 
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CARLOS EDUARDO ROCHA SALVA- 
FO (DUDA) 6 urn autor extremamente jovem 
(nasceu em 1968 e ainda esta cursando o cole- 
gial), mas apesar disso e um veterano. Como au¬ 
tor de Colepao de Programas Vol. I (Editors 
Moderna 1983), foi um dos pioneiros a publi- 
car material para micros da linha SINCLAIR. 
Posteriormente, adquiriu uma notavel experien¬ 
ce didatica ao colaborar com a revista Micro¬ 
hobby como responsavel pela sepao Dissecando. 

Esta experiencia esta sendo transportada 
ao leitor nessa obra, onde o Duda disseca pro¬ 
gramas, mostrando o "como" e o "porque" de 
cada linha. 

Os programas sao de jogos divertidos, sua 
analise 6 feita com a dedicapao e a seriedade de 
um profissional, que ja se tornaram a marca 
registrada dos trabalhos do Duda. 







EDITORA 

MODERNA 


M 

\leph 





JOGOS 


em basic comentado 
linha por linha 


carlos eduardo rocha salvato 



para TE 82/83/85,CP 200 
RINGO,SINCLAIR ZX-81 



■s 


EDITORA 

MODERNA 


colecao 

» 


URANIA 










































































































































































































































Este livro foi editado pela 

ALEPH PUBLICAQOES E 
ASSESSORIA PEDAG6GICA LTDA. 

Os programas foram digitados e testados no 

NUCLEO DE ORlENTApAO DE ESTUDOS 

Nucleo 

/aei orientacao 
( nde jestudoj 

Depto. de Cursos de Computagao 
Av. Brig. Faria Lima, 1451 - Conj. 31 
01451 -Sao Paulo - SP 
Tel.: (011) 813-4555 
sob a coordenagao da 
profi Betty Fromer Piazzi 

CIP-BrasiI. Catalogagao-na-Publi cagao 
Camara Brasileira do Livro, SP 

Saivato, Carlos Eduardo Rocha, 1968- 
SI 73d Dissecando jogos / Carlos Eduardo Rocha Saivato. - Sao 
Paulo :ALEPH: Ed. Moderna, 1985. 

1. Jogos eletrdnicos 2. Microcomputadores - Programagao 
3. Basic (Linguagem de programagao para computadores) I. 
T ftulo. 

17. CDD-651.8 

18. -001.6425 

18. -001.642 

85-0194 18. -001.6424 

fndices para catalogo sistematico: 

1. BASIC : Linguagem de programagao : Computadores : 

Processamento de dados 651.8(17.) 001.6424(18.) 

2. Jogos : Computadores : Programas : Processamento 
de dados 651.8(17.) 001.6425(18.) 

3. Microcomputadores : Linguagem de Programagao : 
Processamento de dados 651.8(17.) 001.642(18.) 


2 


dissecando 

jogos 


em basic TK comentado 
linha por linha 


para SINCLAIR ZX-81 
RING0,TK 82/83/85,CP 200 


*V/ep/j 





Coordenapao Editorial: 

Pierluigi Piazzi 

Avaliapao, editorapao, revisao tScnica e produpao grSfica: 

Nancy Mitie Ariga 
Slustrapdes e Capa: 

Piazzi, Moretti e Rembrandt 
Foto de capa: 

Hugo Sergio Faleiros V.V.E. 

Past-up e arte: 

Fernando Moretti 
Revisao e Copy-desk: 

Lucia Kairovsky 
Produpao: 

Rosa Kogan Fromer 



Todos os direitos reservados 

K/ep/i 

Publicapoes e Assessoria Pedagogica 
Av. Brig. Faria Lima, 
1451 - Conj. 31 

01451 - Jd. Paulista - Sao Paulo - 
Tel.: (011) 813-4555 


Ltd a. 


SP 


ill 


EDITORA 

MODERNA 


Distribuipao exclusiva em livrarias 
EDITORA MODERNA 
Rua Afonso Bras, 431 
04511 - Sao Paulo-SP 
Tel.: (011) 531-5099 


Indice 


Nota do editor ... ... 7 

Capftulo 1 — Senha .. 9 

Capftulo 2 — Porto .. 19 

Capftulo 3 — Ambulancia .. 31 

Capftulo 4 — Escavapoes. 43 

Capftulo 5 — Tiro ao alvo . ..... . 53 

Capftulo 6 — Predios .. 59 

Capftulo 7 — Ataque submarino. 69 

Apendice A . . . ..^ .. 79 

Apendice B .... 61 

Apencice C. ....... 63 

Apendice D ..... ....... •'. 65 


1985 

Brasil 


5 















nota do 


editor 


Quando o "Duda" lanpou seu primeiro livro (Colepao de Programas 
VoL I, Editora Moderna 1983), a maior preocupapao foi a de atender a um 
tipo particular de solicitapao. Havia uma quantidade grande de usu^rios de 
computadores da linha SINCLAIR que so dispunham de software atraves 
de algumas poucas fitas e algumas raras publicapoes. 

0 momento agora 6 outro: o software dispom'vel aumentou exponen- 
ciaimente, bem como o numero de publicapoes. O usuari&tem farta escolha 
para alimentar seu computador. 

Do ponto de vista didatico, por^m; nao se fez muita coisa nestes dois 
anos. 0 usuirio foi encarado como um simples consumidor e nao como um 
possi'vel futuro produtor. 

Foi pensando nisso que planejamos este livro. Nele os programas con- 
tendo jogos em BASIC sao fornecidos ao leitor com uma caracteri'stica que 
os diferencia de todos os demais: eles sab explicados e comentados linha por 
linha. Sao propostas aiterapoes e aperfeipoamentos, fazendo o leitor parti- 
cipar do processo de criapao. 

Para o aprendizado, esta t^cnica 6 de inestimavel valor, sendo muito 
mais eficiente do que tratados e mais tratados de considerapoes teoricas. 

/f Unir o util ao agradavel" 6 um chavao muito batido, mas de uso 
inevitavel para descrever a ultima obra do nosso mais jovem autor. A digi- 
tapao dos programas produz resultados divertidos, mais do que isto, obt6m- 
se no fim um sub-produto extremamente importante, e de forma suave e 
eficaz aprende-se a programar e criar. 

Prof. Pierluigi Piazzi 
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senlia 


1NSTRUQ0ES 

Este programs Simula o conhecido jogo SEN HA. So que desta vez o 
computador escondera o numero. 0 numero escolhido pelo computador e 
formado por 4 algarismos. Esses algarismos podem ser numeros de 0 a 5, e 
podem ser repetidos. 


SENHfi 


Figura 1 
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Voce devera digitar um nCimero de 4 algarismos, igual ao que o com¬ 
putador escolheu. Se o numero que voce digitou nao for exatamente igual 
ao do computador, ele fornecera os seguintes dados: 

1 - Tendo algum algarismo igual ao numero que o computador escon- 
deu, mas fora do lugar, o dado sera representado pela letra 'B'. 

2 - Tendo algum algarismo igual ao numero que o computador escon- 
deu e na posipao correta, o dado sera representado pela letra 'P'. 

Sempre que o computador apresentar um dado, apenas dird o que 
foi especificado nos ftens anteriores, nao dird qual 6 o numero correspon- 
dente. 

Voce $6 teri 6 chances de acertar o numero. 
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Figura 2 


DESEJR JOGRR WOUflMENTE 


(3 / N) 


EXPLICAQAO 

1 a Parte — Iniciapao (Iinha 10 a 60) 

iinha 10 - imprime a palavra SENHA na posiqao (0,12) do vfdeo. 

linha 20 

a 40 - Essas linhas dimensionam as variSveis N$, G$, W$ respectiva- 

mente. Como o numero que aparece entre parenteses nestas li¬ 
nhas 6 4, isto quer dizer que estas variaveis sempre terao 4 dfgi- 
tos de comprimento. 

linha 50 - Zera a variavel que contara o numero de chances que voce tern 
para acertar o numero que o computador escondeu. 

linha 60 - Cria uma nova semente, que ira gerar os numeros aleatorios. 

2? Parte — Esta parte gera o numero que o computador escolheri. 

(linha 70 a 90) 

linha 70 - Inicia urn LOOP de quatro voltas. 

linha 80 - A variavel N$ guardara o numero que o computador esta escon- 
dendo. (Veja mais detaihes sobre esta linha na parte de MODI- 
FlCAgOES). 




linha 90 - Finaliza o LOOP* 

3?Parte — infcio do vfdeo (linha 100) 

iinha 100 - Desloca o infcio do vfdeo para a quarta linha,. 

4? Parte — Verificagao do fim do jogo (linha 110 a 120) 

linha 110 - Incrementa a variavei contadora das chances, 
linha 120- Verifica se a variavei contadora 6 igual ao numero de chances 
mais um, se esta condigao for verdadeira o programa salta para 
linha 360, caso contr^rio continua o programa. 

5? Parte — Entrada e impressao do numero (linha 130 a 150) 

linha 130- Espera que voce entre com um numero de quatro algarismos. 

Este numero que voce digitou sera armazenado na variavei G$. 
linha 140- Se voce nao entrou com nenhum numero o programa vai para 
linha 360, se voce eittrou com um numero o programa continua. 
linha 150- Imprime na d^cima segunda coluna o numero que voce digitou 
seguido de um espago. 

6? Parte — Colocagao do 'P' (linha 160 a 230) 

linha 160 - Verifica se o numero que voce digitou 6 igual ao do computador, 
se for o programa vai para linha 350, caso contrario, o programa 
continua. 

linha 170- Faz a variavei W$ ser igual ao numero que o computador esco- 
Iheu. Isto 4 feito para que durante a comparagao entre os nume- 
ros nao se perca o numero do computador. 
linha ISO - Inicia um LOOP de quatro voltas. 

linha 190 - Esta linha ira comparer o numero que voce digitou com o nume¬ 
ro do computador, se os numeros forem iguais o programa con¬ 
tinua, caso contrdrio vai para a linha 230. 
linha 200 - Faz a variavei W$ ser igual a letra 'P\ Isto 6 feito para que o com¬ 
putador coloque a letra 'P' no vfdeo e evite fazer a comparagao 
para colocar o 'B'. 

linha 210 - Imprime a letra no vfdeo. 

linha 220 - Faz a variavei G$ ser igual a 7'. Isto e feito caso o numero esco- 
Ihido pelo computador tenha algarismos repetidos. 
linha 230 - Finaliza o LOOPe 
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7? Parte — Colocagao do 'B' (linha 240 a 320) 
linha 240 - Inicia um LOOP de quatro voltas. 

linha 250- Se a variavei W$ for igual a letra 'P', o programa vai para linha 
320, caso contrario o programa continua. Esta condigao 6 neces- 
saria senao o numero que esta na posigao correta, tera uma letra 
'P' e uma letra 'B' para representa-lo. 
linha 260 - Inicia um "sub-LOOP" de quatro voltas. 

linha 270 - Nesta linha sao estabelecidas duas comparagoes. A primeira com- 
para as variaveis I e J, se elas forem iguais o programa vai para a 
linha 310, isto acontece por uma razao muito obvia: se as varia¬ 
veis I e J forem iguais, isso quer dizer que o computador esta 
comparando dots numeros na mesma posigao, se os numeros fo¬ 
rem iguais ja devera ter sido atribufda a letra 'P', caso contrario 
nao seria atribufdo nenhum codigo. Outra comparagao que tam- 
bem 6 feita nesta linha e a comparagao de um numero do compu¬ 
tador com todos os seus numeros, caso exista um numero igual 
mas fora da posigao o programa continua, mas se nao existir ne¬ 
nhum numero igual o programa vai para linha 310. 
linha 280 - Se no seu numero existir um numero igual ao do computador, 
mas ele estiver fora da posigao a variavei G$ fica sendo igual a 

ujtr 

linha 290 - Imprime a letra 'B' no vfdeo. 

linha 300- Manda o programa para linha 320, senao os numeros repetidos 
tambdm serao computados. 
linha 310- Finaliza o "sub-LOOP". 

8? Parte — Congratulagoes (linha 350) 

linha 350 - Imprime a palavra "PARABEiNS" no vfdeo. 

9? Parte — Impressao do numero correto (linha 360) 
linha 360 - Imprimira no vfdeo o numero correto. 

10?Parte — Finalizagao (linha 370 a 460) 

Obs.: Esta parte sera usada em quase todos os programas deste livro. 

Para evitar repetigoes nos outros programas, deixarei apenas indicado. 

linha 370 - Imprime na posigao (21,0), se voce quer jogar de novo. 
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linha 380 - Se voce pressionar a ietra 'S' o programa ira para linha 410. 
linha 390 - Se voce pressionar a Ietra 'N' o programa ira para linha 440. 
linha 400- Se voce n§o pressionar nenhuma dessas duas letras o programa 
volta para linha 370. 

linha 410 - P5e o computador no modo SLOW, 
linha 420 - Limpa todo o conteudo do video, 
linha 430 - Manda o programa para linha 10. 
linha 440 - Limpa todo o conteudo do vfdeo. 

linha 450- Imprime na posigao (10,13) a palavra "FIM" em vfdeo inverso. 
linha 460 - Para o programa. 

11? Parte — Auto-Start do programa (linha 470 a 490) 

linha 470 - Armazena em fita o programa com nome "SENHA", 
linha 480 - Roda.o programa. 
linha 490 - Para o programa. 
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MODIFICAQOES 
Modificagao 1 

Uma modificagao muito simples de ser feita, e a da linha 80. Esta linha 
define qual o numero que sera escolhido pelo computador. No jogo normal 
o cpmputador so escolhe numeros entre 0 e 4. Para modified-!© deve-se alte- 


rar o numero que vem logo apos a instrugao RND. No programa este numero 
6 5. Se voce mudar este numero para 8 o computador escolherS numeros en¬ 
tre 0 e 7 aumentando a dificuldade do jogo. Voce tambim pode diminuir a 
dificuldade do jogo diminuindo este nOmero. Se vogS colocar um ntimero 
maior que 10 o computador tambdm podera escolher letras e numeros ao in- 
v6s de escolher so numeros. 

Modificagao 2 

Outra modificagao que pode ser facilmente feita 6 a aiteragao do nti- 
mero de chances que voce tern para acertar o ntimero que o computador e$- 
condeu. Isso pode ser feito trocando na linha 120 o nOmero que aparece logo 
apos o sinal de igual e que deve ser igual ao ntimero de chances que voc£ quer 
ter, mais um. 

Modificagao 3 

Essa modificagao sera um pouco mais complicada, porque atingirS va- 
rias linhas. Esta modificagao alterari o tamanho do numero que o compu¬ 
tador escolhera. 

Fagamos de conta que voce queira alterar o tamanho do numero que 
o computador escolhera para um tamanhp X. Voce deveri alterar o valor de 
X, que no programa original 6 igual a 4, nas seguintes linhas: 20,30,40,70, 
180, 240, 260 e tambdm devera por na linha 140 X espago^entre aspas. 

Modificagao 4 

Esta ultima modificagao 6 extremamente complexa. Iremos acrescen- 
tar algumas linhas ao programa para que o ntimero escolhido pelo compu¬ 
tador nao tenha algarismo repetidos. 

Acrescente as seguintes linhas: 

31 FOR d = l TO 4 

82 IF N$(I)=N$(J) RND IoJ THE 
N GOTO 80 

33 NEXT J 


O computador demorar^ um pouco mais para escolher o nOmero, te 
nha paciencia ou se preferir acrescente mais estas duas linhas: 


35 FRST 
95 SLOW 
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Agora tente modificar o programs de modo que as alteragoes citadas an- 
teriormente ja sejam perguntadas pelo proprio programs. O Display inicial de- 
vera ser o seguinte: 


VOCE QUE 


N U M E R 0 5 R E P E TID 0 5 


r. i 
! ’4 
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NUMERO 

lJ U0U E 5 C OLHER ? 
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H C H H N C E 5 U 0 C E Q U E R 
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HCERTHR 0 NUMERO ? 


BEM . ftGUfiRDE ENOUflNT 

M w i : 

U 1 i— W 


ESCOLHO 0 NUMERO. 


Ap6s voce ter modificado para que ele fique desse jeito, olhe o apen- 
dice A e compare com a minha resposta. 


QUADRO DE VARlAVEIS PRINCIPAIS DO PROGRAMA 

N$ - senha escolhida pelo computador 
G$ - senha que voce vai "chutar" 

W$ - verifies se voce acertou a senha 
C - numero de "chutes" dado por voce 
I - variavel contadora na comparagao das senhas 

J - variavel contadora na comparagao das senhas 



Dorto 












porto 


IISISTRUQOES 

Logo apos voce ter digitado RUN voce devera ver na tela uma imagem 

assim: 


a 



0 


Figura 1 



No alto da tela voce vera o numero 3 que indica o numero de chances 
que voce tem. No centro esta o porto onde voce devera descarregar a sua 
carga na segunda fase do j’ogo e o numero 0 que indica quantos pontos voce 
ja fez. 

Logo abaixo do numero 3 existe urn ponto que representa o seu navio, 
mas ele nao estara obrigatoriamente colocado nesta posiqao, porque sua lo¬ 
cal izaqao na tela e aleatoria. 


21 



Na parte de baixo da tela estao localizados os tres portos onde voce 

buscara a sua carga, na primeira fase. 

Logo apos voce digitar RUN o seii barco ja saira em dlregao aos tres 
portos, e voce deverS controla-los atravSs dos seguintes comandos: 

5 - para a esquerda; 

8 - para a direita; 
ou atravds do joystick. 

Voce precisa atracar exatamente no ponto mais saliente dos portos, 
caso contrSrio voce batera e perdera uma chance. 

Se voce atracar perfeitamente em um dos portos, a segunda fase se ini- 

ciar3 imediatamente. 

A segunda fase 6 semelhante a primeira, s6 que voce ird partir de um 
ponto aleatorio na parte de baixo da tela em dire^ao ao unico porto na parte 
de cima da tela, para descarregar a sua carga. 

Conforme voce for atracando nos portos, na parte inferior da tela, eles 
vao diminuindo de tamanho mostrando que a carga existente nestes portos 
esta acabando. Quando voce conseguir acabar com a carga dos tres portos, 
novas cargas serao colocadas. 
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IF E =6 THEN 
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380 NEXT 
00 

410 GOTO 470 
420 LtzT X =X 41 
430 GOTO 100 

440 IF d = -1 ThicN LET d = 0 

4IF C = -1 THEN LET 0=0 

460 IF D = -i THEN LET D=0 

470 PRINT PT 10,10; “SRLPSH 11 

4C'0 LtT =T - 1 

490* FOR Z = 1 T0 50 

500 NEXT Z 

510 IF T =0 THEN 0L5 

520 if t=0 ' 0 T 

t, PLHCPR = ” ; X 

530 IF T =0 THEN GOTO 550 
d 40 L? uT100 
550 PRINT PT 21,0 
N 0 U P f-i E N T E ' 7 ‘ i 5 / N) ■ 1 
F60 IF INKEY $ = !: S“ THEN GOTO 580 
570 IF INKEY $ = I! N 
560 GOTO d60 
590 CL5 
600 SLOW 
610 G OT0 10 
620 OLE 

630 PR IN i PT 10,10; 

540 STOP 

550 SPUt :i P 0RTS‘' 

650 RUN 
570 STOP 


DESEJP JOGPP 

HEN GOTO 580 
THEN GOTO 520 
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EXPLICAQAO 

1 a Parte — Iniciagao (linha 10 a 100) 

linha 10 - A variavei T assume o valor 3. A varievel T guardara o ntimero de 
chances que voce tern. 

linha 20 - Zera a variavei X, que contara os seus pontos. 
linha 30 - A variavei B assume o valor 4. A variavei B definira o tamanho do 
primeiro porto da parte inferior da tela, 
linha 40 - A variavei C assume o valor igual ao de B. A variavei C definird o 
tamanho do segundo porto da parte inferior da tela, 
linha 50 - A variavei D assume o valor igual ao de B. A variavei D definire 
o tamanho do terceiro porto da parte inferior da tela, 
linha 60 - O conteudo da varievel alfanumerica F$ sera o caractere numero 4. 
linha 70 - O conteudo da variavei alfanumerica B$ sere igual a 4 espagos in- 
versos. 

linha 80 - O conteudo da variavei alfanumerica C$ sere o mesmo da variavei 
B$. 
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linha 90 - O conteudo da variavei alfanumerica D$ sera o mesmo da varievel 
B$. 

linha 100 - Limpa todo o conteudo da tela. 

2? Parte — Checagem das cargas {linha 110) 

linha 110 - Verifica se a carga dos tres portos e igual a zero e tambem se voce 
ainda tern chances de continuar o jogo. Se os portos nao tiverem 
mais cargas, o programa vai para a linha 30 onde as cargas serao 
reestabelecidas, caso contrerio o programa continua. 

3? Parte — Impressao dos Portos (linha 120 a 190) 

linha 120 - Imprime na posigao (0,0) a variavei T, imprime na posigao (14,0) 
os caracteres 133 e 128. Esta linha tambem imprime na posigao 
(25,0) a variavei X. 

linha 130- Imprime o conteudo da varievel F$ na posigao (15,1). 
linha 140 - Imprime o conteudo da varievel F$ na posigao (3,20). 
linha 150 - Imprime o conteudo da variavei F$ na posigao (13,20). 
linha 160 - Imprime o conteudo da variavei F$ na posigao (23,20). 
linha 170 - Imprime o conteudo da variavei B$ ate B na posigao (3,21). 

Exemplo: Se B for igual a 2 so serao impressos dois espagos in- 
versos. 

linha 180 - Imprime o conteudo da variavei C$ ate C na posigao (21,13). 
linha 190 - Imprime o conteOdo da variavei D$ ate D na posigao (21,23). 

4? Parte — Primeira Fase (linha 200 a 260) 

linha 200 - Escolhe a posigao inicial da qual saira o seu navio, e coloca na 
varievel E. 

linha 210- Inicia urn LOOP que contara regressivamente de 39 ate 3. Este 
LOOP serve para ser feita a descida ate os portos. 
linha 220 - Caso voce pressione a tecla '5' o seu navio se deslocara de uma 
posigao para a esquerda. 

linha 230 - Caso voce pressione a tecla '8' o seu navio se deslocara de uma 
posigao para a direita. 

linha 240 - Imprime urn ponto (PLOT) na posigao (E,Z). 
linha 250- Apaga o ponto que foi impresso na linha anterior. Isto e feito 
para que o ponto fique piscando. 
linha 260- Finaliza o LOOP. 
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5? Parte — Checa se o navio bateu (linha 270 a 320) 

linha 270 - Se a variavel E for igual a 6, quer dizer que voce atracou no pri- 
meiro porto, por isso a variavel B serS diminufda de um, pois voce 
ja pegou uma carga la existente, caso contrario o programa con- 
tinua. 

linha 280 - Se a variavel E for igual a 26, quer dizer que voc§ atracou no se- 
gundo porto, por isso a variavel C sera diminufda de um, pois 
voce ja pegou uma carga la existente, caso contrario o programa 
continua. 

linha 290 - Se a variavel E for igual a 46, quer dizer que voc§ atracou no ter- 
ceiro porto, por isso a variavel C serd diminufda de um, pois voce 
ja pegou uma carga la existente, caso contrario o programa con¬ 
tinua, 

linha 300 - Checa se no porto que voce atracou existe carga, se positivo o 
programa continua, caso contrario o programa vai para a linha 
440. 

linha 310 - Checa se voce atracou em um dos tres portos, se atracou o progra¬ 
ma vai para a segunda fase (linha 330). 

linha 320- Manda o programa para linha 470. 

6?Parte — Segunda Fase (linha 330 a 390) 

linha 330- Escolhe a posipao inicial de onde saira o seu navio e coloca na 
variavel E. 

linha 340 - Inicia um LOOP que contara de 3 atd 39. Este LOOP serve para 
que seja feita a subida atd o porto. 

linha 350 - Caso voce pressione.a tecla '5 # o seu navio se deslocara uma posi- 
pao para a esquerda. 

linha 360 - Caso voce pressione a tecla '8' o seu navio se deslocard uma po- 
sigao para a direita. 

linha 370 - Imprime um ponto (PLOT) na posi<?ao (E,Z). 

linha 380 - Apaga o ponto que foi impresso na linha anterior, isto d feito para 
que o ponto f ique piscando. 

linha 390 - Finaliza o LOOP. 

7? Parte - Checa se o navio bateu (linha 400 e 410) 

linha 400 - Se a variavel E for igual a 30, significa que voce atracou perfeita- 


mente no porto superior e o programa vai para a linha 420, caso 
contrario o programa continua. 
linha 410 - Manda o programa para a linha 470. 

8? Parte — Soma de Ponto (linha 420 e 430) 

linha 420 - Soma um ponto a variavel X, que no caso d o seu placar. 
linha 430 - Manda o programa para a linha 100 e reinicia a primeira fase. 

9? Parte — Batida do Navio (linha 440 a 500) 

Hnha 440 - Se voce atracar no primeiro porto e houver carga, a variavel B 
que guarda o numero de cargas ficou sendo negativa e precisa 

ser zerada. 

linha 450 - Se voce atracou no segundo porto e nao havia carga, a variavel 
C que guarda o numero de cargas ficou sendo negativa e precisa 

ser zerada. 

linha 460 - Se voce atracou no terceiro porto e nao havia carga, a variavel 
D que guarda o numero de cargas ficou sendo negativa e precisa 

ser zerada. 

linha 470 - Imprime a palavra 'SPLASH' na posi?ao (10,10). 
linha 480- Diminue a variavel T de um, diminuindo, portanto, as suas 
chances. 

linha 490- Inicia um LOOP que conta de 1 atd 50. Este LOOP serve apenas 
para dar uma pausa. 
linha 500 - Finaliza o LOOP. 

10? Parte — Verifica^ao do Fim do Jogo (linha 510 a 540) 

linha 510- Se as suas chances ja tiverem sido esgotadas e feita uma limpeza 
total da tela, caso contrario, o programa continua. 
linha 520- Se as suas chances ja tiverem sido esgotadas, a mensagem TIM 
DE JOGO' e impressa na posipao (5,10) e o seu placar 6 impresso 
na posigao (10,12), caso contrario, o programa continua. 
linha 530 - Se as suas chances ja tiverem sido esgotadas, o programa vai para 
a linha 550, caso contrario, o programa continua. 
linha 540 ■■ Manda o programa para linha 100 e reinicia a primeira fase. 

11? Parte — Finaliza^ao (linha 550 a 640) 

Veja a decima parte do programa SEN HA. 
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12? Parte - Auto-Start do programa (linha 650 a 670) 

linha 650 - Armazena em fita o programa com o nome de PORTO, 
linha 660 - Roda o programa. 
linha 670 - Para o programa. 


Modificaqao 3 

Voce pode fazer urn metodo de pontuapao diferente. Voce pode mar- 
car 1 ponto quando conseguir atracar no porto de baixo e 1 ponto quando 
chegar no porto de fcima. Voce pode fazer isto acrescentado a linha: 


LET X=X +1 



PLACAR = 12 


Figura 3 


DESEJfl «JuGAR NOUflMENTE ? 


CS/N) 


MODIFICAQOES 
Modificapao 1 

Voce pode alterar o numero de chances que tern para atracar perfeita- 
mente nos portos. Isto pode ser facilmente feito, trocando o numero que a 
variavel T assume na linha 10. Se voce colocar: 

10 LET T =5 

poderd atracar erroneamente 5 vezes. 

Modificapao 2 

Voce pode modificar o tamanho dos trds portos da parte inferior do 
vfdeo. Para modificar o tamanho de todos os portos e so alterar a linha 30 
para: 

30 LET B = tamanho do 19 porto 
40 LET C = tamanho do 29 porto 
50 LET D = tamanho do 39 porto 


Modificapao 4 

Retirando as linhas 250 e 380, voce terd urn efeito diferente no vfdeo. 
Ao invds de seu navio ser urn ponto "piscante", eleserdumtrapocontfnuoque 
mostrara todo o seu percurso tanto na ida, como na volta. 

Obs.: Como o programa original tern mais de 2K, quern nao tern ex- 
pansao nao poderia roda-lo. Por isso n6s vamos dedicar as prdximas modifi- 
cagoes para diminuir o tamanho do programa sem alterar o seu objetivo. 

Modificagao 5 

Como primeira op$ao podenamos fundir da linha 120 atd a 190 em 
uma so. Por exemplo: 

10 PRINT HT 10,10; “ALEPhr ;hT 20, 

10;“MQDERNA" 


Modificapao 6 

Desta vez nos iremos fundir as linhas 220 e 230. Para fundi-las nos te- 
remos que usar as operates logicas. Para quern nao tem iddia do que se trata 
numa opera^ao logica, digite o seguinte programa. 

10 PRINT 3 >4. 

20 PRINT 3=3 
30 PRINT 2+l=l+l+l 
40 PRINT 30*1=2*20 
30 PRINT 1-2=2-1 

Apos digitar RUN voce deve ver na tela os seguintes numeros: 

0 

1 

1 

0 

0 
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Neste programs simplesmente sao executadas operagoes logicas. 
Exemplos: 

linha 10 - Verifica se 3 6 maior que 4. Se for, imprime 1, caso contrario, 
imprime 0. 

linha 20 - Verifica se 3 6 igual a 3. Se for, imprime 1, caso contrario, impri¬ 
me 0. 

Agora nos substituiremos as linhas 220 e 230 pela linha: 


220 LET E =E + (IN KEY $ = “ 8 *■*) 



Esta linha verifica se voce esta pressionando a tecla 8. Se voce estiver, 
o computador soma 1 a variavei E. Se voce estiver pressionando a tecla 5 o 
computador subtrai 1 da varidvel E. Se voce nao pressionar nenhuma dessas 
teclas, a variavei E continua com o valor que tinha. Esta modificagao tambem 
pode ser feita nas linhas 350 e 360. 


QUADRO DE VARlAVEIS PRINCIPAIS DO PROGRAMA 

T - numero de chances 

X - contadora dos pontos 

B - tamanho do primeiro porto 

C - tamanho do segundo porto 

D - tamanho do terceiro porto 

F$ - represents o local exato onde voce deve atracar 

B$ - primeiro porto 

C$ - segundo porto 

D$ - terceiro porto 

E - posigao inicial do barco 

Z - variavei contadora da movimentagao do barco 
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seste m 








3 

ambulancia 


INSTRUQOES 

Neste jogo voce esta dirigindo uma ambulancia e deve recolher os feri- 
dos que estao espalhados peias ruas deixando um sinal de perigo no local. 

Toda vez que voce recolher todos os feridos, mudara de bairro, e en- 
contrara mais feridos. Cuidado, conforme voce mudar de bairro o numero 
de sinais de perigo aumenta. 

Como voce so atende um bairro por vez, se voce tentar passar de um 
para outro voce perdera uma ambulancia. Voce so tern 5 ambulSncias para 
salvar o maior numero possfvel de feridos. 
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Para movimentar a ambulancia use as teclas: 

5 - para esquerda; 

6 - para baixo; 

7 * para cima; 

8 - para direita. 

Representagoes: 

Mmite do bairro = CHR$ (128) 
sinal de perigo = CHR$ (8) 
ferido - I 

ambulancia = 0 


10 CLS 
20 SLOW 
30 LET H =0 
40 LET L =5 
50 LET “5=0 
60 LET B$=“8“ 

70 PRINT RT 20,2 ; ,, P0NTOS=0“ ; Th 

-T CT • »' !”« CT .*“* f~i C* P. * * W 


J. w i r\ r-. fc-- i— — i * 

88 PRINT AT 21,0;" 

HBDBSniS 


• i 


90 FOR Z =0 TO 19 
100 PRINT RT 21,0; TAB 31; "S 


110 SCROLL 

130 printYt 

I™"™ 2 = 1 TO 10 ' 

150 PRINT RT INT (RND*19 3 +2, INT 
(RND+303+1;"l" 

ISO NEXT Z 

170 FOR Z = 1 TO 10 

180 PRINT RT INT (PND$193+2,INT 
(RND*303+1;"I" 

190 NEXT Z 
200 LET N =0 
210 LET R =10 
220 "LET 6 = 15 

230 PRINT RT R,ts; „ __ 

240:LET N =PEEK (PEEK 16398+256* 
PEEK 163993 

250 IF MO0 THEN GOTO 890 

260 PRINT RT H,B;"0".;flT R, B; ” ” 

270 LET fl$ = INKEY$ 

280 IF THEN LET B,$=fl$ 

290 IF R$ = ‘" i THEN' LET fl$=B$ 
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300 LET R=A+ (fi$ = "6‘ : AND fl<21)-( 
R$= ,, 7‘' AND fl > 0 3 

310 LET B =B + (fl $ = “ 8 ,a AND B<313-( 
fl$ = ”5" AND B >03 
320 GOTO 230 
330 LET L=L-1 
340 PRINT RT fl , B ; “S ,: 

350 IF L =0 THEN GOTO 490 
360 PRINT RT 21,5; ”BS 
";CHR$ (L+156) 


3 70 

IF 

M=3 THEN PRINT RT R, 

B; 15 

3 3 0 

IF 

M > =123 THEN 

PRINT RT 

H, 

390 

IF 

R$ = ,, 5“ THEN 

LET B $ = M 

o • • 

400 

IF 

h$ = ,, 3*’ THEN 

LET B $ = M 

CT ** 

. i 

410 

IF 

R$ = " 6 ** THEN 

LET B$= M 

*7 *» 

t 

420 

T F 

H$= >,, 7 m THEN 

LET 5$=“ 

6 " 


430 GOTO 270 

440 PRINT RT 9,7;"BflIRROS 50C0R 
R ID OS = 11 5/1000 
450 FOR Z=0 TO 75 
460 NEXT Z 

470 PRINT RT R,B; W 5 ; RT 9,7; 14 

1 £ 

430 GOTO 140. 

490 LET 0$ = "FIM ; DE JOGO I! 

510 FOR 5=1 TO 4 ~ 

520 NEXT D 

530 PRINT RT 10,C+S;fl$(C) 

540 NEXT C 
550 FOR Z=0 TO 21 
560 IF 5 > =H THEN PRINT RT Z.0;" 


570 IF 5 <H THEN SCROLL 
530 NEXT Z 

590 IF 5 >H THEN LET H=S 
600 IF 5 < H THEN GOTO 730 
610 PRINT RT 7,11;"PRRRBENS”;TR 
B 5;"UOCE BRTEU 0 RECORDE”;ThB 
1 ; 1 ’bE HOJE";TRB 8;"ENTRE COM 0 
EU N0ME 
620 LET C$ = 5 ‘ 

630 LET M$=”* ! 

640 INPUT T$ 

650 LET C$=C$+STR$ H 
660 FOR Y = 1 TO LEN C$ 

670 LET M$=M$+CHR$ (CODE C$(YH 

1 680 NEXT Y 
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690 FOR Z=0 TO 21 
700 SCROLL 
710 NEXT Z 
720 GOTO 770 

730 PRINT RT 5,8; M SEUS PONTOS^' 

740 PRINT RT 9.3;"RECORDE=";C$ 

750 FOR Z=0 TO 5 

760 NEXT Z __ 


; T1 $ 


770 PRINT RT 9,3; 

730 FOR Z=0 TO 5 
“7q0 NEXT z 

*800 PRINT- "FEITO POR ‘*;T$;RT 21 
, 0; “DESEJR JOGRR NGURMENTE ? i'o/ 
N) " 

310 IF INKEY$ = "S“ THEN GOTO 340 
320 IF INKEY$ = "N" THEN GOTO 360 
330 GOTO 740 
340 CL5 
350 GOTO 40 

360 CL5 _ 

370 PRINT RT 10,10; 

330 STOP 

390 IF M =46 THEN GOSUB 940 
900 IF M > =123 OR M=3 THEN GOTO 

330 ■ 

910 PRINT RT R, B.; “11“ 

920 IF N = 10 THEN GOTO 440 

930 GOTO 260 

940 LET N=N+1 ■ _ 

950 PRINT RT R , B; 

960 LllT 5=3+100 
Q70 PRINT hT 0,9;S 
930 RETURN 

990 SRUE "RMBULflNCIfl" 

1000 RUN 
1010 STOP 


EXPLICAQAO 

1? Parte - iniciagao (linha 10 a 60) 

linha 10 - Limpa todo o conteudo da tela, 
linha 20 - Passa o computador para o mode SLOW. 

linha 30 - Iguala a variavel H a zero. A varidvel H guardara o valor do re- 
corde. 

linha 40 - Iguala a variavel S a zero. A variavel S guardarci o valor dos seus 
pontos. 
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linha 50 - Iguala a variavel L a cinco. A variavel L guardara o numero de am- 
bulancias que voce tem. 

linha 60 - A variavel B$ 6 igualada a diregao inicial da ambulancia, no caso, 
para a direita. 

2? Parte — Impressao da Tela (linha 70 a 190) 

linha 70 - Imprime na posigao (2,20) a palavra PONTOS na mesma linha, 
mas na posigao (15,20) 6 impressa a palavra RECORDE e o seu 
valor logo ao lado, a variavel H. 

linha 80 - Imprime na posigao (0,21) uma linha com 32 espagos inversos. 
linha 90 - Inicia urn LOOP de 20 voltas. 

linha 100 - Imprime nas posigoes (0, 21) e (31,21) espagos inversos. 
linha 110- Realiza urn SCROLL. O SCROLL consiste na subida de cada 
uma das linhas da tela. Por exemplo, o conteudo da linha 21 pas- 
sa para linha 20, o da linha 20 para linha 19, etc. 
linha 120 - Finaliza o LOOP. 

linha 130- Imprime na posigao (0,21) uma linha com 32 espagos inversos. 
linha 140 - Inicia um LOOP de 10 voltas. 

linha 150- Imprime um sinal de perigo em uma posigao aleatoria de tela 
que pode variar da seguinte maneira (2 at£ 20,1 ate 30). 
linha 160 - Finaliza o LOOP, 
linha 170 - inicia outro LOOP de 10 voltas. 

linha 180- Imprime um ferido em uma posigao aleatdria da tela que pode 
variar da seguinte maneira (2 at£ 20,1 ate 30). 
linha 190- Finaliza o LOOP. 

3?Parte — Verificagao da Posigao (linha 200 a 250) 

linha 200 - Iguala a variavel N a zero. A variavel N guardara o numero de fe- 
ridos ja recolhidos. 

linha 210 - Iguala a variavel A a dez. A variavel A guardara a linha na tela que 
sua ambulancia ocupa. 

linha 220- Iguala a variavel B a quinze. A variavel B guardara a coluna na 
tela que sua ambulancia ocupa. 

linha 230- Desloca uma esp<§cie de cursor invisfvel para a posigao (B,A). 
linha 240- Utiliza a variavel do sistema POSPR para saber qual o caractere 
que ocupa a posigao citada na linha 230 e coloca o codigo deste 
caractere na variavel M. 

linha 250 - Verifica se a variavel M e diferente de zero, se for o programs sal¬ 
ts para linha 890, caso contrario o programs continua. 
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4? Parte — Direpao da ambulancia (linha 260 a 320) 

linha 260 - Imprime na posipao (B,A) a letra 0, que representa a ambulancia, 
logo depois imprime em cima da letra O urn espapo em branco. 
Isto e feito para que exista um efeito "piscante" na tela, 
linha 270 - Iguala a variavel A$ a tecla pressionada. Por exemplo se voce 
pressionou a tecla '5' a variavel A$ sera igual a '5\ Se voce nao 
pressionar nenhuma tecla a variavel A$ sera vazia. 
linha 280 - Verifica se alguma tecla foi pressionada, se foi esta tecla que ja 
esta armazenada em A$ 6 passada para B$, caso contrdrio, o pro- 
grama continua. 

linha 290 - Caso nenhuma tecla tenha sido pressionada o valor da variavel 
B$ £ passado para a variavel A$. Isto acontece, porque mesmo 
que voce nao pressione nenhuma tecla, a ambulancia se movi- 
mentara na direpao da ultima tecla pressionada. Por exemplo, 
se voce pressionar a tecla 6 a ambulancia comepara a descer at£ 
que voce pressione outra tecla. 

linha 300 - Dependendo da tecla pressionada, esta linha altera o valor da li¬ 
nha que sua ambulancia ocupa, isto e feito atravtls de operapoes 
logicas. Veja Modificapao 6, no capftulo 2. 
linha 310 - Dependendo da tecla pressionada esta linha altera o valor da co- 
luna que sua ambulancia ocupa, isto d feito atravds de operapoes 
logicas. 

linha 320 - Manda o programa para a linha 230. 

5?Parte — Batida da Ambulancia (linha 330 a 430) 

linha 330 - Diminui de um o valor da varidve! L. 
linha 340 - Imprime na posipao (B,A) a letra O em vfdeo inverso. 
linha 350 - Se suas ambulancias tiverem acabado o programa vai para linha 
490, caso contrario o programa continua. 
linha 360- Imprime na posipao (8,21) a palavra AMBULANCIA =, em vi'deo 
inverso e logo ao lado imprime o numero de ambulancias que voce 
ainda tern. 

linha 370 - Se voce bateu em um stnal de perigo e impresso na posipao (B,A) 
um espapo em branco, caso contrario, o programa continua. 
linha 380 - Se voce bateu nos limites do bairro, este limite e redesenhado, 
imprimindo-se na posipao (B,A) um espapo inverso. 
linha 390 Estas linhas irao inverter o sentido da sua ambulancia apos a ba- 
a 420 - tida. Por exemplo, se voce vinha para a esquerda e bateu, agora 
sua ambulancia \ri andar para a direita. 


linha 430 - Manda o programa para linha 270. 

6? Parte — Numero de bairros socorridos (linha 440 a 480) 

linha 440 - Imprime na posipao (7,9) a mensagem 'BAIRROS SOCORRI¬ 
DOS' e logo ao lado o numero de bairros 'socorridos, que 6 dado 
pela expressao S/1000. 

linha 450 - Inicia um LOOP de 76 voltas. Este LOOP 6 usado para dar uma 
pausa. 

linha 460 - Finaliza o LOOP. 

linha 470 - Imprime na posipao (B,A) um espapo em branco, e imprime na 
posipao (7,9) vinte e um espapos em branco. 

linha 480 - Manda o programa para a linha 140. 

7? Parte — Impressao da palavra FIM DE JOGO (linha 490 a 540) 

linha 490 - Iguala a variavel A$ a palavra FIM DE JOGO. 

linha 500- Inicia um LOOP de 11 voltas, no qual a variavel contadora 6 a 
variavel C. 

linha 510 - Inicia outro LOOP, mas este LOOP 6 usado apenas para dar uma 
pausa. 

linha 520 - Finaliza o LOOP da pausa. 

linha 530 - Imprime comepando na posipao (9,10) a palavra FIM DE JOGO, 
letra por letra. 

linha 540 - Finaliza o LOOP principal. 

8? Parte - Quebra do RECORDE (linha 550 a 640) 


linha 550 - 
linha 560 - 


linha 570- 

linha 580 - 
linha 590 - 

linha 600 - 
linha 610 - 

linha 620 - 


Inicia um LOOP de 21 voltas. 

Verifica se seus pontos sao maiores que o recorde. Se for o com- 
putador imprime na posipao (0,Z) 32 espapos inversos, caso con¬ 
trario, o programa continua. 

Caso os seus pontos sejam menor que o recorde 6 realizado um 
SCROLL, caso contrario, o programa continua. 

Finaliza o LOOP. 

Caso voce tenha batido o recorde a variavel H Ira ter o mesmo va¬ 
lor da varidve! S. 

Se voce nao bateu o recorde o programa vai para linha 730. 
Imprime a mensagem "PARABENS VOCE BATEU O RECOR¬ 
DE DE HOJE ENTRE COM SEU NOME" no centro da tela. 
Iguala a variavel C$ a uma string vazia. A variavel C$ ird guardar 
o recorde em vfdeo normal. 
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linha 630 - Iguala a variavel M$ a uma string vazia. A variavel M$ irS guardar 
o recorde em vi'deo inverso. 

linha 640- Espera voce digitar o seu nome e NEW LINE. O seu nome sera 
guardado na variavel T$. 

9? Parte — Inversao do Recorde (linha 650 a 720) 

linha 650 - Iguala a varidvel C$ ao recorde H. A fungao STR$ faz o seguin- 
te: ela transforma o contetido da variavel H que e num^rico em 
uma variavel alfanumerica, no caso C$. 
linha 660 - Inicia urn LOOP que tera tantas voltas quanto for o tamanho da 
variavel C$. A fungao LEN d3 o tamanho de uma certa variavel 
alfanumerica no caso C$. 

linha 670“ Armazena na variavel alfanumerica M$ o valor do recorde, mas 
em vi'deo inverso. Isto 4 feito somando-se 128 ao codigo do re¬ 
corde em vi'deo normal, 
linha 680 - Finaliza o LOOP, 
linha 690 - Inicia urn LOOP de 22 voltas. 
linha 700 - Realiza um SCROLL, 
linha 710- Finaliza o LOOP, 
linha 720 - Manda o programa para a linha 770. 

10? Parte — Impressao dos pontos e recorde (linha 730 a 790) 

linha 730 - Imprime na posigao (8, 5) a mensagem SEUS PONTOS =. Logo, 
ao lado e impressa a variavel S que armazena seus pontos. 
linha 740 - Imprime na posigao (8, 9) a palavra RECORDE =. E bem ao lado 
o valor do recorde em vi'deo normal (variavel C$). 

linha 750 - Inicia um LOOP de 6 voltas para dar uma pausa. 
linha 760 - Finaliza o LOOP. 

linha 770- Imprime na posigao (8, 9) a palavra RECORDE = em vi'deo in¬ 
verso, logo ao lado 6 impresso o valor do recorde em vi'deo in¬ 
verso (variavel M% 
verso (variavel M$). 

linha 780 - Inicia um LOOP de 6 voltas para dar uma pausa. 
linha 790 - Finaliza o LOOP. 

11? Parte — Finalizagao (linha 800 a 880) 

linha 800 - Imprime a mensagem FEITO POR, e o nome de quern fez o re¬ 
corde, este nome esta armazenado na variavel T$. Imprime na 
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posigao (0, 21) a mensagem DESEJA JOGAR NOVAMENTE? 
(S/N). 

linha 810 - Se voce pressionar a letra "S' o programa ira para linha 840. 

linha 820 - Se voce pressionar a letra 'N' o programa ira para linha 860. 

linha 830 - Manda o programa para linha 810. 

linha 840 - Limpa todo o conteudo da tela. 

linha 850 - Manda o programa para linha 40. 

linha 860 - Limpa o conteudo da tela. 

linha 870 - Imprime na posigao (10,10) a palavra FIM em vi'deo inverso. 
linha 880 - Para o programa. 

12? Parte — Checa onde voce est£ (linha 890 a 980) 

linha 890 - A variavel M contem o codigo do caractere que esta na posigao 
(B, A). Se M for igual a 46 o programa vai para a linha 940. 
linha 900 - Se a variavel M for maior ou igual a 128 ou for igual a 8 o progra¬ 
ma vai para linha 330. 

linha 910 - Imprime na posigao (B, A) o caractere 8 que representa um sinal 
de perigo. 

linha 920 ** N e a variavel que armazena o numero de feridos ja recolhidos. 

Se N for igual a 10 o programa vai para a linha 440. 
linha 930 - Manda o programa para linha 260. 
linha 940 - Soma um a variavel N. 

linha 950 - Imprime na posigao (B, A) a letra I em vi'deo inverso. 
linha 960 - Soma 100 a variavel S que armazena os seus pontos. 
linha 970 - imprime na posigao (9, 0) a Variavel S. 
linha 980 - Retorna ao programa principal. 

13? Parte — Auto-Start (linha 990 a 1010) 

linha 990 - Armazena o programa em fita com o nome de AMBULANCIA, 
linha 1000 - Roda o programa. 
linha 1010 - Para o programa. 

MODIFICAQOES 

Modificagao 1 

Voce pode alterar o numero de ambulancias no estabelecimento. De- 
pendendo deste numero voce podera fazer mais ou menos pontos. Para fazer 
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isto basta trocar o numero que a variavel L assume na linha 50. Se voce colo- 
car: 

50 LET L =3 

voce podera bater a ambulancia tres vezes. 

Modificapao 2 

Voce pode modificar o numero de sinais de perigo que serao colocados 
no infcio do jogo. Isto 4 feito mudando o numero de vezes que a linha 140 4 
executada. Para ter mais sinais de perigo basta alterar a linha 140 para: 


40 FOR 


Modificapao 3 

Voce tambem pode alterar a direpao inicial que a ambulancia segue. 
Essa direpao 4 definida pela linha 60 e basta voce trocar o numero que esta 
entre aspas para 5, 6 ou 7. 


QUADRO DAS VARlAVEIS PRINCIPAIS DO PROGRAMA 


H - valor do recorde 

S - valor dos seus pontos 

L - numero de ambulancias que voce tern 

B$ - direpao inicial da ambulancia 

N - numero de feridos recolhidos 

A - sua linha na tela 

B - sua coluna na tela 

M - codigo do caractere que ocupa a posipao (B, A) 

A$ - direpao da ambulancia durante o jogo 

C$ - recorde em vfdeo normal 

M$ - recorde em vfdeo inverso 

Z, X, C, D, Y, J - variaveis contadoras de LOOPs. 
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escavagoes 


INSTRUQOES 

Voce esta na Amazonia apos ter encontrado um mapa de um tesouro 
do seculo X exatamente no local marcado por um X no mapa. 

Durante muitos meses voce fez escavapoes numa mina at6 encontrar 
o incn'vel tesouro: uma esmeralda pesando cerca de meio quilograma. Quando 
voce ja esta voltando em dire<?ao 3 entrada, ocorre um terremoto que o so- 
terra. 

Este nao 6 o seu maior problema, pois voce tern material para fazer uma 
escavapao ate a safda. O maior problema 6 que o terremoto libertou um mons- 
tro pr6-hi$torico que guardava a esmeralda, 

Seu material so consegue escavar un\ tipo de pedra, e na mina existem 
dois tipos de pedra. 

Tome cuidado porque essas pedras sao iguais externamentei 
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Para movimentar-se use os seguintes comandos: 

5 - escava para a esquerda; 

6 » escava para tras; 

7 - escava para frente; 

8 - escava para a direita. 

Voce sera representado peia letra 0 # o monstro pela letra X e as pedras 
serao representadas pelo caractere numero 8. 


L DE 
30 
40 
RQ 

60 

70 

S3 

90 

100 


ERST 
PRINT 11 

fKBBBBm"* CENTRE COM 0 NIUE 
DIFICULDflDE (DE 1 fi. 5) ,s 
INPUT L 

IF L <1 OR L >5 THEN. GOTO 30 
CLS 

DIM h i1 y , 1 y i 
LET R=10 
LET U=19 
LET C=0 
LET R $ = “ 




110 PRINT RT 20,0;R$;hT 0,0;R$ 
120 FOR N = 1 TO 19 

o fs nnTMT 11 WS&&33S 
J. •-« r K i I 


140 NEXT N 
150 FOR N=1 TO 100 
150 LET Y=INT (RND*19)+1 
1-70 LET X = INT (RND*19)+1 
180 IF J[Y=9 OR Y = iO) RND (X=l 
H X=19) !HtN GOTO 160 

190 LET R(Y , X 3 =1 
200 NEXT N 
210 LET Y = 10 
220 LET X=1 
230 5L0U 

240 PRINT RT 10.20; '* " 

250 FOR N = 1 TO S-L' 

260 L tz T C =C + 1 
270 LET Z=X 
280 LET T=Y 

c'rS LEi Y = Y r i iNKtY$ - " 6 " AND Y < 
S s - ( i N K t Y £ = " 7 ‘ 1 AND y v 1 'i 

300'LET X =X -f {INKEY$ =~8" AND X 
9) -(INKEY $ = "5” AND X >1) 

310 IF Y = 10 hND X = 19 THEN GOTO 
450 

320 IF A«Y,X:i=l THEN LET X=Z 
330 IF A(Y,X)=1 THEN LET Y=T 
340 PRINT AT T.Z;".“;AT Y,X:"C 
350 NEXT N 
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360 LET E=R 
370 LET S=U 
380 LET U=U + <U 
390 LET R=R+ (R 
400 IF A (R .. U) = 
410 IF A(H,U3= 
420 PRINT AT t 
430 IF R=Y AND 


1 THEN LET R=E 
1 THEN LET U=S 

,8.;" "AT R, U 

U = X T H t N G 0 T 0 


440 '7HT0 250 

450 PRINT AT 10,19,“ 0“,AT 1 
; “yOCE" ; AT 3.23; “tSCAPOU"; AT 
5; “EM" ; AT 7.25; C; AT 9,22; “f-ioy 
Nf OS" 

4F.0 GOTO 480 

470 PR INT AT 3,25" yOCE “ ; AT 
5;"FOI”;AT 7.23;"CAPTURADO" 
480 PRINT At 21,0;“DESEJA JO 
N 0 y A MENT E ? 1 5/N 3 " 

490 IF INKEY $ = "8" THEN GOTO 
500-IF INKEY*=“N“ THEN GOTO 
510 GOTO 490 
520 CLS 

530 PRINT AT 10,10;“ 

540 STOP 
550 CLS 
560 RUN 

570 SAME “ESCAUACOEg" 

• Kftfl PI IN 
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EXPLICAQAO 


1? Parte — Inicializagao (linha 10 a 100) 


linha 10 - 
linha 20 - 

linha 30 - 

linha 40 - 

linha 50 - 
linha 60 - 
linha 70 - 

linha 80 - 

linha 90 - 

linha 100 - 


Passa o computador para o modo FAST. 

Imprime no infcio do vfdeo a palavra ESCAVApOES eduas linhas 
abaixo ENTRE COM O NIVEL DE DIFICULDADE (DE 1 A 5). 
Espera que voce digite o nfvel de dificuldade e NEW LINE e co- 
loca este valor na variavel L. 

Verifica se a variavel L e menor que 1 ou maior que 5. Caso isto 
acontega o programa volta para a linha 30, caso contrario, o pro- 
grama continua. 

Limpa todo o conteudo da tela. 

Dimensiona uma matriz quadrada A(19 x 19). 

Iguala a variavel R a 10. A variavel R guardara a linha que o mons- 
tro ocupa na tela. 

Iguala a variavel V a 19. A variavel V guardara a coluna que o 
monstro ocupa na tela. 

Iguala a variavel C a zero. A variavel C guardara o numero de mo- 
vimento ja executado. 

Iguala a variavel A$ a 20 espagos inversos. A variavel A$ sera usa- 
da para imprimir as margens inferior e superior da mina. 


2? Parte — Impressao da tela (linha 110 a 140) 

linha 110 - imprime naSsposigoes (0, 20) e (0, 0) a variavel A$ (margens). 
linha 120 - Inicia um LOOP de 19 voltas. 

linha 130- Imprime o centro do labirinto que e composto de 1 espago in- 
verso seguido de 18 caracteres numero 8 e mais 1 espago inverso. 
linha 140 - Finaliza o LOOP. 


3? Parte — Colocagao dos obstciculos e posigao inicial (linha 150 a 220) 


linha 150- 
linha 160 - 
linha 170 - 
linha 180 - 


linha 190 - 


Inicia um LOOP de 100 voltas. 

Escolhe um valor aleatorio para Y variando entre 1 e 19. 

Escolhe um valor aleatorio para X variando entre 1 e 19. 

Verifica se Y 6 igual a 9 ou 10 e se X e igual a 1 ou 19. Isto <§ fei- 
to para que nao seja colocado um obstaculo na sua posigao ini¬ 
cial. 

Iguala a variavel A(Y, X) a 1, indicando que naquele local da ma¬ 
triz existe um obstaculo. 


linha 200 - Finaliza o LOOP. 

linha 210 - Iguala a variavel Y a 10. A variavel Y guardara a coluna que voc§ 
ocupa na tela. 

linha 220 - Iguala a variavel X a 1. A variavel X guardara a linha que vocS 
ocupa na tela. 


4? Parte — Sua Movimentagao (linha 230 a 350) 


linha 230 - 
linha 240 - 

linha 250 - 


linha 260 - 
linha 270 - 
linha 280 - 


linha 290 - 


linha 300- 


linha 310 - 
linha 320 - 


linha 330 - 


Passa o computador para o modo SLOW. 

Imprime na posigao (20, 10) um espago em branco que indica a 
safda. 

Inicia um LOOP que vai ter o numero de voltas variando depen- 
dendo do nfvel de dificuldade. Por exemplo se o nfvel de dificul¬ 
dade for 2, o LOOP ter2 4 voltas, isto quer dizer que enquanto 
voce da 4 passos o monstro da apenas um. 

Soma 1 a variavel C indicando que voce fez mais um movimento. 
Iguala a variavel Z a variavel X. 

Iguala a variavel T a variavel Y. As linhas 270 e 280 existem por- 
que, caso voce faga algum movimento ilegal, a letra O que repre- 
senta voce sera impressa na ultima posigao legal que agora 6 a 
posigao (T, Z). 

Esta linha verifica se voce est3 pressionando a tecla 6, o compu¬ 
tador soma 1 a variavel Y, se voce estiver pressionando a tecla 7 
o computador subtrai 1 da variavel Y, se voce nao pressionar ne- 
nhuma destas duas teclas o valor da variavel Y nao se altera. 

Esta linha verifica se voce est3 pressionando a tecla 8. Se voce es¬ 
tiver, o computador soma 1 a variavel X, se voce estiver pressio¬ 
nando a tecla 5 o computador subtrai 1 da variavel X. Caso voce 
nao pressione nenhuma destas duas teclas o valor de X nao se al¬ 
tera. 

Se a variavel X for igual a 10 e Y for igual a 10 isto indica que 
voce conseguiu sair da mina e o programa vai para a linha 450. 

Se a posigao (Y, X) na matriz A for igual a 1 isto significa que 
existe um obstaculo, por isto a variavel Y 6 igualada a ultima po¬ 
sigao legal que esta armazenada na variavel T. 

Se a posigao (Y, X) na matriz A for igual a 1, isto significa que 
existe um obstaculo, por isto a variavel X 6 igualada a ultima po¬ 
sigao legal que esta armazenada na variavel Z. 
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linha 340 - Imprime na posipao (Z, T) um espapo em branco e na posipao 
(V, X) a letra O. 

linha 350 - Finaliza o LOOP. 

5? Parte — Movimentapao do Monstro (linha 360 a 440) 

linha 360 - Iguala a variavel E a variavel R. 

linha 370 - Iguala a variavel S a variSvel V. As linhas 360 e 370 fazem, caso 
o monstro fapa um movimento ilegal, que seja impresso na ul¬ 
tima posipao legal que agora 6 (S, E). 

linha 380 - Compara a coluna que o monstro ocupa com a sua. Se a do mons¬ 
tro for maior, e subtrai'do 1 da variavel V;se a coluna do monstro 
for menor e somado 1 a variavel V; se for igual o valor de V nao 
se altera. 

linha 390 - Compara a linha que o monstro ocupa com a sua. Se a do mons¬ 
tro for maior 6 subtrai'do 1 da variavel R; se a linha do monstro 
for menor 6 somado 1 a variavel R; se as linhas forem iguais a 
variavel R nao se altera. 

linha 400- Se a posipao (R, V) na matriz A for igual a 1 isto significa que 
existe um obstaculo, por isto a variSvel R e iguaiada a ultima po¬ 
sipao legal que esta armazenada na variavel E. 

linha 410 - Se a posipao (R, V) for igual a 1, isto significa que existe um obs¬ 
taculo, por isto a varidvel V e iguaiada a ultima posipao legal ar¬ 
mazenada na variavel S. 

linha 420- Imprime na posipao (S, E) um espapo em branco e na posip£o 
(V, R) a letra X. 

linha 430 - Verifica se R 6 igual a Y e se V e igual a X, se estas condipoes fo¬ 
rem satisfeitas significa que voce foi capturado pelo monstro e o 
programa vai para a linha 470, caso contrario, o programa conti- 
nua. 

linha 440 - Manda o programa para a linha 250. 

6? Parte — Escapatoria (linha 450 e 460) 

linha 450- Imprime na posipao (19, 10) um espapo em branco seguido da 
letra O; na posipao (24, 1) a palavra VOC£; na posipao (23, 3) 
a palavra ESCAPOU; na posipao (25, 5) a palavra EM; na posi¬ 
pao (25, 7) a variavel C que guarda o numero de movimentos 
que voce fez e na posipao (22, 9) a palavra MOVIMENTOS. 

linha 460 - Manda o programa para a linha 480. 


7? Parte — Capturado (linha 470) 

linha 470 - Imprime na posipao (25, 3) a palavra VOC£, na posipao (25, 5) 
a palavra FOI e na posipao (23, 7) a palavra CAPTURADO. 


8? Parte — Final izapao (linha 480 a 560) 


linha 480 - Imprime na posipao (0, 21) a mensagem DESEJA JOGAR NOVA* 
MENTE? (S/N). 

linha 490 - Se voce pressionar a tecla S o programa vai para a linha 550. 

linha 500 - Se voce pressionar a tecla N o programa vai para a linha 520. 

linha 510 - Manda o programa para a linha 490. 

linha 520 - Limpa o conteudo da tecla. 

linha 530 - Imprime na posipao (10,10) a palavra FIM. 

linha 540 - Pdra o programa. 

linha 550 - Limpa o conteudo da tela. 

linha 560- Roda o programa. 


9? Parte — Auto-Start (linha 570 a 580) 


linha 570 - Armazena o programa em fita com o nome de ESCAVAQ0ES. 
linha 580- Roda o programa. 


MODIFICAQ0ES 

Modificapao 1 

Se voce incluir a linha: 


195 PRINT hT 


CHR$ (126) 


voce ira tornar as pedras que voce nao consegue escavar diferentes das que 
voce consegue. 


Modificapao 2 

Voce pode alterar o ntimero de pedras que voce nao pode escavar e que 
serao postas na mina. Para fazer isto basta alterar a linha 150, para que ela 
fique da seguinte maneira: 


150 FOR N = 1 TO n? de pedras desejadas 
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Modificapao 3 

Voce pode acrescentar um comando ao jogo. Esse comando levaria voce 
at6 a posipao iniciai caso voce aperte a tecla 0 ou o botao de tiro do Joystick. 
Para isto voce deve acrescentar as linhas: 

305 IF INKEYTHEN LET V =10 

306 IF INKEY*= ,, 0 M THEN LET X = i 

QUADRO DAS VARlAVEIS PRINCIPAIS DO PROGRAMA 

L- nfvel de dificuldade 
A - matriz que Simula a tela 
R - linha do monstro na tela 

V - coluna do monstro na tela 

C - numero de movimentos executados 
A$ - margens do labirinto 

Y - coluna que voce ocupa na tela 
X - linha que voce ocupa na tela 
Z - variavel de transipao 

T - variavel de transipao 
E - variavel de transipao 
S - variavel de transipao 
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tiro ao alvo 
















































































































































































































































5 

tiro ao alvo 


INSTRUQOES 

Voce acaba de entrar em um parque de diversoes, muito parecido com 
aqueles que aparecem na televisao. A primeira barraca que voce avista/iao 
e senao, nada mais, nada menos, que a barraca do tiro ao alvo. 

Nesta barraca existem 16 patinhos nadando de um lado para o outro. 

Voce como nao pertence a nenhuma sociedade protetora de animais, 
empenha uma espingarda que esta em cima do balcao e comepa a atirar. 

O seu objetivo 6 diaro: ganhar a bonequinha que d dada a quern acertar 
todos os patinhos em 16 tiros. 

Comando: 

0 - dispara a espingarda. 

Representapao: 

pato = CHR$ (134) 


10 CLS 
20 5 LOU 
30 LET 3=0 
4-0 LlT D =0 
"50 LET ft$ = •'*« * 
'» '» *» \ ‘« \ 

60 PRINT " 


■ ■■■■■as 

< i ■ ■ i i i i i 


[•■HMaORBl'' : AT 3,14 ; "AT IRE" 

70 PRINT AT' 21.14-; AT 20, 

14-^ ; RT 19,15; 


I * Pft I l 


30 PR I NT H‘T 10,0; 


0 


90 

IF INKEY $ = " O “ 

THEN G 

□SUB 13 

100 

LET H$=H$ (2 TO 

! ) +fi$ i 

1 .* 

110 

IF R$ = M 




5 THEN 

GOTO 2 

4-0 

■1 

«JL LL hL 

»_t i »_■ Vl 1 



•i 

M‘ 

IF H$ (16) < ;• 11 

THEN 

LET D=1 

14*0 

FOR R = 17 70 10 

STEP 

- -L 

150 

i r i s 

PRINT hT h,15; 

;RT 

H + i , 1 IT' 

160 

NEXT H 
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170 J> D = 1 THliN LcT H$ » 16) 
130 IF D=i THEN PRINT RT 3 
RCizRT DU 1 

190 IF D=0 THEN PRINT RT 8 
ERROU 

200 hkINi hT 10 i0 ;h$ 

210 LET D =0 

■- •- i-?i • ™~r -r — ■- j. -i 

ciiL 1 l_ i -r j- 

230 RETURN 
24-0 CL 5 

250 PRINT UOCc RCERTOU Ti 
05 PRTXNhQS EH !; ; S ; “ TIROS . ' 
260 PRINT RT 21,0;“DESEJR , 

K i t“i i i lj V.i w. >. » i CT ■“ -Z .* K | \ ! * 

f W U VPI! !LH ! I— : .* 


U !_i ijn j~| R| 


270 IF INKEY $ = :: S !t THEN RUN 


230 IF IN KEY $ = "N THEN GOTO 

~ i*":” fi •' ”7 

c ? v W l —* S 1 £ ;* SL* 

300. CL5 

U10 HKlN! R ! XC i 10 i 
320 STOP 

330 SR N't: ‘‘TIRO RO HLUS” 

.jj <1 w U N 


EXPLICAQAO 

1? Parte — Inicializapao {linha 10 a 50) 

linha 10 - Limpa todo o conteudo da tela. 

linha 20 - Passa o computador para p modo SLOW. 

linha 30 - Iguala a variavel S a zero. A variavel S guardard o numero de tiros 
que voce deu. 

linha 40 - Iguala a variavel D a zero. A variavel D ira dizer se voce acertou 
ou errou o alvo. 

linha 50 - Iguala a variavel A$ a 16 vezes um caractere 134 seguido de um 
espapo em branco. A variavel A$ ser3 a repreSentapao da linha de 
patos. 

2? Parte — Impressao da tela (linha 60 a 80) 

linha 60 - Imprime no infcio da tela o tftulo TIRO AO ALVO e depois im- 
prime na posipao (14, 8) a palavra ATI RE. 

linha 70 - Imprime na posipao (14, 21) tres 'espapos inversos depois im¬ 
prime na posipao (20, 14) um caractere 133 seguido de um es- 
papo inverso seguido pelo caractere 5. Finalmente e impresso 
um espapo inverso na posipao (15, 19). Esta linha desenha sua 
espingarda. 

linha 80 - Imprime na posipao (0, 10) a variavel A$. 
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3? Parte — Rotapao dos Alvos (linha 90 a 120) 

linha 90 - Verifica se voce pressionou a tecla 0, se esta condipao for verda- 
deira, o programa chama a rotina de tiro na linha 130, caso con- 
trario, o programa continua. 

linha 100 - Esta linha e que realmente da o efeito de rotapao dos alvos. Ela 
funciona da seguinte maneira: a instrupao (2 TO) ignora o primei- 
ro caractere da variavel A$ mas este caractere 6 somado no final 
da mesma variavel dando o efeito de rotapao. 
linha 110 - Se a variavel A$ for constitufda apenas de 32 espapos em branco, 
significa que voce ja acertou todos os patos e o programa vai para 
a linha 240. 

linha 120 - Manda o programa para a linha 80. 

4? Parte — Rotina de Tiro (linha 130 a 230) 

linha 130 - Verifica se a posipao 16 da variavel A$ e diferente de um espapo 
em branco, o que significa que voce atirou e acertou um pato, e 
neste caso a variavel A 6 igualada a 1. 

linha 140 - Inicia um LOOP que comepa no 17 e acaba np 10. Para fazer um 
LOOP regressivo basta acrescentar a funpao STEP -1. Esta fun- 
pao altera o passo do LOOP. 

linha 150 - Imprime na posipao (15, A) um asterisco e logo a seguir imprime 
um espapo em branco na posipao (15, A + 1). Isto 6 feito para 
que haja um de tiro, 
linha 160 - Finaliza o LOOP regressivo. 

linha 170 - Se a variavel D for igual a 1, a posipao da variavel A$ (16) e igua¬ 
lada a um espapo em branco. 

linha 180- Se a variavel D for igual a 1 6 impressa a palavra ACERTOU na 
posipao (14, 8). 

linha 190- Se a variavel D for igual a zero £ impresso na posipao (14, 8) a 
palavra ERROU, seguida de dois espapos em branco. 
linha 200 - Imprime na posipao (0,10) a varidvel A$. 
linha 210- Zera a variavel D. 
linha 220 - Soma 1 a variavel S. 
linha 230 - Retorna ao programa principal. 

5? Parte - FinalizapSo (linha 240 a 320) 
linha 240 - Limpa o conteudo da tela. 

linha 250- Imprime no comepo da tela a mensagem "VOCE ACERTOU 
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TODOS OS PATINHOS EM", imprime tambem o valor da varia- 
vel S e logo depois a palavra Tl ROS. 

linha 260- Imprime na posipao (0, 21) a mensagem "DESEJA JOGAR NO- 
VAMENTE"? (S/N). 

linha 270 - Se voce pressionar a tecla S o programa roda novamente. 
linha 280 - Se voce pressionar a tecla N o programa vai para a linha 300. 
linha 290 - Manda o programa para a linha 270. 
linha 300 - Limpa o conteudo da tela. 

linha 310 - Imprime na posipao (10, 10) a palavra FIM em vfdeo inverso. 
linha 320 - Para o programa. 

6? Parte — Auto-Start (linha 330 a 340) 

linha 330 - Armazena o programa em fita com o nome de "Tl RO AO ALVO". 
linha 340 - Roda o programa. 

MODIFICAQOES 

Modificapao 1 

Voce pode alterar a tecla que dispara o tiro, alterando a linha 90. Se 
voce alterar a linha 90 para: 

90 IF INKEYt= ,8 F" THEN GGSUB 13 


a espingarda atirara quando voce pressionar a tecla F. 


Modificapao 2 

Voce pode modificar o caractere que Simula o tiro apenas trocando o 
asterisco da linha 150 pelo caractere desejado. Tente troca-lo pelo ponto fi¬ 
nal. 


QUADRO DAS VARlAVEIS PRINCIPAL DO PROGRAMA 

S - variavel contadora de tiros 
D - indicador de acerto do alvo 
A$ - representapao dos patos 
A - indicadora da posipao do tiro. 
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6 

pradios 


INSTRUQOES 

Neste jogo voce e um simples operario de uma construgao, mas seri 
uma pepa extremamente importante na reconstrupao de varios prddios, isto 
porque o engenheiro que projetou-os cometeu um erro que obriga-o a refazer 
as estruturas para evitar um terrfvel acidente. 

A sua missao e a seguinte: voce deve arrancar todos os pregos que segu- 
ram a estrutura do predio para que ele seja reconstrufdo. 

O principal perigo 6 que os pr^dios estao sendo construfdos no "Morro 
dos Ventos Uivantes" e voce precisa tomar cuidado para nao ser carregado 
pelo vento. 

. Para ajuda-lo nesta dif fell missao voce conta com a ajuda de um apare- 
Iho que mede a intensidade do vento. Enquanto este aparelho registrar uma 
intensidade entre 0 a 7 fique tranquilo, mas quando ele comepar a indicar 
8 ou 9 tome muito cuidado e ande sempre na diregao oposta a do vento. 

Apenas um lembrete: como todos os prSdios, este e constitufdo de vi¬ 
nos andares e para voce mudar de um andar pode usar as escadas ou o eleva- 

dor no lado direito do predio. 

A diregao do vento e sempre da sua esquerda para a direita. 

Comandos: 

5 • para a esquerda; 

6 - para baixo; 

7 - para cima; 

8 - para direita; 

ou pelo joystick. 

Representapdes: 

Voce * * 

Prego martelado - . 

Prego arrancado - , 

Escada - : 

El evador - CHR$ 136 + CHR$ 136 
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10 

rr t . , — •* 

L- U. ! i_ L- — ± 


20 

CL 5 


30 

LET DE = 8 


4- 0 

LET 9=20 


50 

LET 5=1NT ,RND*80 

i i 

50 

; —**r • rr > « -Xv-v!* 1 ‘ 

i_ l_ i i_ — vv.vav 


: 'll 1 

i PT ! 

L_ L_ 1 1_L — 


80 

LET L2 =30 


90 

LET U=25 


100 

LET N = 1 


118 

IF LL =1 THEN LET 

w‘ — KJ 

120 

LET U = INT CRND*10 

j 

130 

P 0 Kb 16 415 i 1 


140 

PRINT PT 22 , 14 ; U 


150 

GOSUB 590 


150 

IF RND > » 4: THEN LET W=U-MINT 

CRND 

1 *+• 3) — 1) 


170 

l et u = w + ( y < 0 j - (y > 

9 ) 

160 

PRINT hT 221 » 14 . U 


198 

. : i 

PRINT RT fi,B;CHR$ 

: : 

UPT L1,L 

200 

IF y=5 THEN LET 5 

=5 + 1 

210 

IF y=9 THEN LET 5 

=5 + 2 

220 

LbT L1 =L1 +N 


•T ■- 1*71 

a hi* 

PRINT PT LI * L2;L$ 


240 

IF U=135 THEN LET 

fi =L 1 

2 b 0- 

IF Li=20 THEN LET 

1 

II 

2 F. 0 

IF LI =4 THEN LET ! 

N = 1 

270 

LbT 9 = H + ( IN K E Y $ = 1 : i 

5" ) - £INKEY 


280 

LbT d=t; + ( INKEY $ = : 

»:=:•« •> :• TKi l- - — \/ 

w 1 m r\ •_ ! 

$ = 15 5‘ 

t 


290 

M O T f* i ' i "T rT u* ’ 

f H ^ i ^ i t r-s . ; 


rs. >-s 
si 1 sJ 

L ET U = P E E K (PEE K 

1 d y o + y *d d + 

pPh K. 

*1 u i" (*": 't 

i_i 


”• •} j*7i 
w» — t. 1 

IF U=27 THEN LET 

zz y 

t *A 
in 'll* 

IF U = 27 THEN LET 

DE =DE +1 

330 

IF U =27 THEN LET 

U =25 

340 

IF U = 126 OR U=0 THEN- GOTO 3 

W HL‘ 

3 5 0 

PRINT 


360 

IF DE =82 THEN GOTO 540 

370 

GOTO 160 


3 8 0 

PRINT RT 21,0; ■"S'* 


390 

LET T = 1 


400 

FOR 1=9 TO 20 


410 

PRINT PT 1:5; v * ,r ; 

RT 1-1 s 5; " 

" ; pt 

21,T;"B" 


420 ■ 

j cr*T- t — t* , 

L. iw ! ! — ! + JL 


a o IT* 

K i 2T V T 


H- tl 1 

I ML A 1 J. 


440 

PRINT PT 20,10;" < 

< < + > > > ; PT 

■*■*• 'i -i 

U 1 ,1 1 

0; “83115213" 


•i CT iT. 

**+• HL’ 

PRINT P! 0,8.; ”0 5 

RLRRIO" , 


p® n, 

u. ^ 

E 1 , "OR $ ‘ , 

4 d 0 

POKE 1641 

470 

PRINT RT 

N 0 U 

PMENTd '? ’•* 

LR 0 

IF INKEy $ 

490 

T cr tu l-‘ crV" nr 

500 

yuTu 4 o 8 

“ *1 i* 7 < 

_l d 

CTT5 

520 

PRINT PT 

530 

5T OP 

540 

LET Ll =LL 

d b 0 

PRINT “PR 

550 

r 0 R 1=1 T 

cr " 7 j 7 i 

NEXT I 

i O 0 

i'TiTO 20 

590 

LET P $ = 

t i 

600 LET B$=“B 



Ghk 


510 


; PT 21,30; “S” ; fit 13,2; B$ C to' 2 



; h| 
£1 '- T 
; B$ 


i h 
TO 


115 

P.20 FOR Z = 12 TO 20 
630 PRINT RT Z .. 2RT Z., 10 
“ ; RT Z , 19 fit Z 26; " : " 

640 NEXT Z 
650 rOR x=7 Tu 12 
i=-60 PRINT RT Z , 6 ; ” : “ ; RT Z , 22 
" ; RT Z ,29; *' : “ 

670 NEXT Z * 

FS0 FOR Z =4 TO 7 

590 PRINT RT Z , 19; " : " ; RT Z 2 

I 3 

I 

'700 NEXT Z 
710 SLOW 
720 RETURN 
7:10 SPUE "PREDIOST 
74-0 RUN 


EXPLICATES 

1? Parte — Iniciaiizapao (IInha 10 a 120) 

linha 10 - Iguala a variavel LL a 1. A variavel LL guardara de quantos pre- 
dios voce ja arrancou todos os pregos. 
linha 20 - Limpa todo o conteudo da tela. 
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linha 30 • iguala a variSvel DE a zero, A variavel DE guardara quantos pre- 
gos ja foram arrancados. 

linha 40 - Iguala a variavel A a 20, A variavel A guardara a linha que voce 
ocupa na tela. 

linha 50 - Escolhe um valor aieatbrio para variavel B entre 0 e 29. A varia¬ 
vel B guardara a coluna que voce ocupa na tela. 

linha 60 - Iguala a variavel L$ a 2 caracteres 136. A variavel L$ e o dese- 
nho do elevador. 

linha 70 - Iguala a variavel LI a 5. A variavel LI guardara a linha que o 
elevador ocupa. 

linha 80 - Iguala a variavel L2 a 30. A variavel L2 guardard a coluna que o 
elevador ocupa. 

linha 90 - Iguala a variavel U a 26. A variavel U guardara o caractere que 
sera impresso na posigao (B, A). O caractere 26 no caso <§ o *. 

linha 100- Iguala a variavel N a 1. A variavel N guardara quantos andares 
o elevador ira subir ou descer. 

linha 110 - Se for o primeiro prddio do qual voce estcl arrancando pregos a 
variavel S e igualada a zero. A variavel S guardara o seu salario. 

linha 120 - Escolhe um valor aleatbrio para a variavel W entre 0 e 9. A varia¬ 
vel W guardara a intensidade do vento. 

2? Parte — Impressao do Prbdio (linha 130 a 150) 

linha 130 - Esta linha possibilita que o vfdeo do seu computador tenha uma 
linha a mais. 

linha 140 - Imprime na posigao (14, 22) a variavel W. 

linha 150 - Chama a sub-rotina de impressao do predio na linha 590. 

3? Parte - Verificagao do Aparelho de Vento (linha 160 a 210) 

linha 160- A fungao RND gera um numero aleatorio entre 0 e 1. Se este 
numero for maior que 0,4, entao a intensidade do vento 4 altera- 
da, caso contr^rio, ela continua a mesma. A intensidade do vento 
e alterada da seguinte maneira, pode-se acrescentar 1 ou subtrair 
a da variavel W. 

linha 170 - Altera o valor da variavel W usando operagoes logicas logicas. Se 
o valor de W for menor que 1 e somado 1, se for maior do que 9 
e subtrafdo 1. 

linha 180 - Imprime na posigao (14, 22) a variavel W. 
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linha 190 - Imprime na posigao (B, A) o caractere que tern o cbdigo igual a 
da variavel U e na posigao (L2, LI) dois espagos em branco que 
limpa a antiga posigao do elevador. 

linha 200 - Se a variavel W for igual a 8 4 somado 1 a varidvel B. Isto signifi- 
ca que voce estd sendo carregado pelo vento 1 posigao. 

linha 210 - Se a variavel W for igual 9 4 somado 2 a variavel B. Isto significa 
que voce foi carregado 2 posigoes pelo vento. 

4? Parte — Movimento do Elevador (linha 220 a 230) 

linha 220 - Soma N a variavel LI se N for igual a 1 o elevador estadescendo 
e se N for igual a - 1 o elevador esta subindo. 

linha 230 - Imprime na posigao (L2, LI) a variavel L$. 

5? Parte — Verificagao (linha 240 a 260) 

linha 240 - Se a variavel U for igual a 136 significa que voce esta dentro do 

elevador. Se esta condigao for verdadeira a variavel A deve ser 

igual a LI, lembrando que A e a sua linha na tela e LI e a linha 
do elevador na tela. 

linha 250 - Se a variavel LI for igual a 20, isto significa que o elevador che- 
gou ao t6rreo e a variSvel N deve ser igual a -1 para ele comegar 
a subir. 

linha 260 - Se a variSvel LI for igual a 4, significa que o elevador chegou 

ao ultimo andar e a variavel N deve valer 1 para ele comegar a 

descer. 

6? Parte — Sua Movimentagao (linha 270 a 280) 

linha 270 - Esta linha verifica se voce esta pressionando a tecla 6. Se voce 
estiver, 6 somado 1 a variave! A. Se voce estiver pressionando a 
tecla 7 6 subtrafdo 1 da variavel A. Se voce nao pressionar nenhu- 
ma das duas teclas o valor da variavel A nao se altera. 

linha 280 - Esta linha verifica se voc§ esta pressionando a tecla 6. Se estiver, 
6 somado 1 a variavel B. Se voce estiver pressionando a tecla 5 
4 subtrafdo 1 da variavel B. Se voce nao pressionar nenhuma 
destas teclas o valor de B nao se altera. 

7? Parte — Verificagao do seu Movimento (linha 290 a 340) 

linha 290 - Desloca uma espScie de cursor invisfvel para a posigao (B, A). 

linha 300- Utiliza a variavel do sistema POSPR para saber qual o caractere 
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que ocupa a posipao citada na linha 290 e coloca o codigo deste 
caractere na variavel U. 

linha 310 - Se a variSvel U for igual a 27 (ponto) sao somados tantos cruzei¬ 
ros quantos estiver marcando o aparelho que marca a intensidade 
do vento. 

linha 320- Se a variavel U for igual a 27 (ponto) e somado 1 a variavel DE. 

linha 340 - Se a variavel U for igual a 128 ou a 0 significa que voce caiu do 
pr6dio e o programa vai para a linha 380. 

8? Parte — Impressao e Verificapao do Fim do PrSdio (linha 350 a 370). 

linha 350- Imprimeum* (voce). 

linha 360 - Se a variavel DE for igual a 82 significa que voce arrancou todos 
os pregos deste prSdio e o programa vai para a linha 540. 

i 

linha 370 - Manda o programa para a linha 160. 

9? Parte - Fim do Jogo (linha 380 a 450) 


linha 380 - 
linha 390 - 

linha 400 - 

linha 410 - 


linha 420 - 
linha 430 - 
linha 440 - 

linha 450 - 


Imprime na posipao (0,21) a letra em vfdeo inverse. 

Iguala a variavel T a 1. A variavel T funcionara como contador de 
quantas letras I na linha 410 serao impressas. 

Inicia um LOOP que comepa no numero da linha que voce ocupa 
ate 20. 

Imprime na posipao (B, I) um asterisco, na posipao (B, I - 1) um 
espapo em branco. Isto da a impressao que voce esta caindo do 
predio. Imprime na posipao (T, 21) a letra I em vfdeo inverso. 
Soma 1 a variavel T. 

Finaliza o LOOP. 

Imprime na posipao (10, 20) o desenho * e na posipao (10,21) 
a palavra BUUMM em vfdeo inverso. 

Imprime na posipao (0, 0) a palavra SALARIO; na posipao (0, 2) 
a frase E DE e na posipao (0, 4) o sfmbolo Cr$ seguido pelo va¬ 
lor da variavel S. 


10? Parte — Finalizagao (linha 460 a 530) 
linha 460 - Tira o efeito da linha 130. 

linha 470- Imprime na posipao (0, 21) a mensagem "DESEJA JOGAR NO- 
VAMENTE" ? (S/N). 

linha 480 - Se voce pressionar a tecla S, o programa roda novamente. 


linha 490 - Se voce pressionar a tecla N, o programa vai para a linha 510. 
linha 500 - Manda o programa para a linha 480. 
linha 510- Limpa todo o conteudo da tela. 

linha 520- Imprime na posipao (10, 10) a palavra "FIM" em vfdeo inverso. 
linha 530 - Para o programa. 

11? Parte — Mudanpa de Pr6dio (linha 540 a 580) 

linha 540 - Soma 1 a variavel LL. 

linha 550 - imprime o pn§dio no qual voc§ esta. 

linha 560 - Inicia um LOOP de 100 voltas. 

linha 570- Finaliza o LOOP. Este LOOP serve apenas para dar uma pausa 
no programa. 

linha 580 - Manda o programa para a linha 20. 

12? Parte — Rotina de Impressao do Predio (linha 590 a 720) 

Veja Apendice B 

13? Parte — Auto-Start do Programa (linha 730 a 740) 

linha 730 - Armazena o programa em fita com o nome de PREiDIOS. 
linha 740 - Roda o programa. 
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MODIFICAQOES 

Veja Apendice B 


QUADRO DAS VARiAVEIS PRINCIPAL DO PROGRAMA 

LL - pr^dios com todos os pregos arrancados 

DE - pregos ja arrancados 

A - sua linha na tela 

B - sua coluna na tela 

L$ - representagao do elevador 

LI - linha do elevador na tela 

L2 - coluna do elevador na tela 

U - caractere que sera impresso na posigao (B, A) 

N - andares que o elevador subir3 ou descera 

S - valor do seu salSrio 

W - intensidade do vento 

T r I, Z - variaveis contadoras de LOOPs. 




ataque 

submarino 
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ataque 

submarino 


INSTRUQOES 

Voce acaba de entrar em uma batalha naval no meio do Oceano fndico, 
voce e o comandante de um submarino com urn arsenal limitado a 30 tor¬ 
pedos. Com estes 30 torpedos, voce tentar3 destruir o maior numero de ini- 
migos possfvel. 

So que existe um problema com o seu radar: ele so mostra a posigao 
dos inimigos durante 2 segundos e durante este tempo voce devera memori- 
zar a posigao dos mesmos. 

Logo depois sera mostrada uma espScie de tabela no seu computador 
de bordo. Voce verificar^ em sua memoria a posigao dos inimigos e entrara 
com as coordenadas da seguinte forma: 

coluna, linha 
Exemplos: 

A1 

B7 

M9 

Voce tern tres tipos de inimigos para destruir, os hidro-avioes que valem 
30 pontos, os cruzadores que valem 20, e as fragatas que valem apenas 10 
pontos. O jogo acaba quando acabarem os torpedos do arsenal. 


10 

CLS 




20 

DIM 

H 

(17 

t 

30 

LET 

P 

= 0 


40 

FAS' 

T 



50 

LET 

c 

= 16 


60 

LET 

u 

= 1 


70 

GO 5 

UB 

CT 

0 

80 

LET 

c 

= 17 

1 

90 

LET 

u 



100 

U ■— 1 

UB 

CT;^ 

0 

110 

LET 

c 

= 1 1 

.Jl 
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120 

LET U=3 


130 

k m U t' 5 -«r* 0 


140 

L 0 U 


150 

PRUSE 100 


160 

OLS 


170 

ij ij U 6* 4c!0 


130 

LET G = 30 


190 

PRINT hT 20,0; -PLAChR ="; P 

200 

INPUT B$ 


210 

IF LEN 6$ 0 2 OR 0 

GDfc 3$ +00C 

E 5$ 

(2)>39 THEN GOTO 2 

00 

220 

LET L = CURL B$ (.2) ) 

*2-1 

230 

LET T =(CODE 3$(13 

3 *2-75 

240 

LET B=R(L,T3 


250 

IF 3=1 THEN GOTO 

330 

260 

IF 3=2 THEN GOTO 

360 

270 

IF 3=3 THEN GOTO 

390 

230 

PRINT RT L,T;"X" 



290 LET G=G-1 

300 PRINT RT 20>13;"SOBRflM 
l! TORPEDOS '* 

310 IF G = 0 THEN GOTO 690 

320 GOTO 200 

330 LET 0=163 

340 LET U=20 

350 G OT0 600 

360 LET 0=171 

370 LET U=I0 

330 GOTO 600 

390 LET 0=173 

400 LET U = 30 

410 GOTO 600 

420 LET N = 1 

430 FOR L=1 TO 17 STEP 2 

440 PRINT RT L,0;N 

450 LET N=N+i 

460 NEXT L 

470 LET D = 38 

430 FOR T = 1 TO 29 STEP 2 

490 PRINT RT * 0,T;OHR$ D 

500 LET D =D +1 

510 NEXT T 

520 RETURN 

530 FOR E = 1 TO 10 

540 LET T = INT (RND*i4J*2+1 

550 LET L = INT (RND*9j *2 + 1 

560 PRINT RT L,T;CHR$ 0 

570 LET R(L,T3=U 

530 NEXT E 

590 RETURN 

600 PRINT RT L .iTCHR$ 0 
610 PRINT RT 21,0;“RFUNOOU 
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PLHUHf 


R = 14 0 


SOdRRM 


T ORPtDQS 


EXPLICAQOES 

1? Parte — Iniciapao (linha 10 a 40) 

linha 10 - Limpa o conteudo da tela. 

linha 20 - Dimensiona uma matriz A de 17 por 29. 
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linha 30 
linha 40 

2? Parte 

linha 50 


linha 60 

linha 70 
linha 80 


linha 90 

linha 100 
linha 110 


linha 120 

linha 130* 
linha 140 - 
linha 150- 
linha 160 - 

3? Parte - 

linha 170 - 
linha 180 - 

linha 190 - 


4? Parte - 
linha 200 - 

linha 210- 
linha 220 - 


- Zera a variavel P que contara os seus pontos. 

- Passa o computador para o modo FAST. 

- Impressao dos inimigos (linha 50 a 160) 

- Iguala a variavel C a 168. A variavel C guardara o valor do carac- 
tere a ser impresso na rotina de impressao, no caso um C em vf- 
deo in verso. 

* Iguala a variavel V a 1. O numero 1 sera a representagao de um 
cruzador na matriz. 

- Chama a sub-rotina de impressao na linha 530. 

- Iguala a variavel C a 171. A variavel C guardara o valor do carac- 
tere a ser impresso na rotina de impressao, no caso um F em vi¬ 
deo inverso. 

- Iguala a variavel V a 2. O ntimero 2 sera a representagao de uma 
fragata na matriz. 

- Chama a sub-rotina de impressao na linha 530. 

- Iguala a variavel C a 173. A variavel C guardara o valor do carac- 
tere a ser impresso na rotina de impressao, no caso um H em vf- 
deo inverso. 

- Iguala a variavel V a 3. O numero 3 representa um hidro-aviao na 
matriz. 

■ Chama a sub-rotina de impressao na linha 530. 

Passa o computador para o modo SLOW. 

Da uma pausa de cerca de 2 segundos. 

Limpa todo o conteudo da tela. 

Impressao das coordenadas (linha 170 a 190) 

Chama a sub-rotina de impressao das coordenadas na linha 420. 
Iguala a variavel G a 30. A variavel G guardara o numero de tor- 
pedos que ainda Ihe restam. 

Imprime na posigao (0,20) a palavra PLACAR = seguida do valor 
da variavel P. 

Entrada das Coordenadas (linha 200 a 280) 

Espera que voce entre com as coordenadas e coloca-as na variavel 
B$. 

Verifica se a maneira que voce entrou com os dados foi valida. 
Transforma o valor da parte numerica da variavel B$ multipli- 
cada por 2 e subtrai 1, o resultado 4 colocado na variavel L. 


linha 230 - Multiplica a parte alfanumerica da variavel B$ por 2 e subtrai 
75, coloca o resultado na variavel T. 

linha 240- Verifica qual o valor que ocupa a posigao (L, T) na matriz A e 
coloca este valor na variavel B. 

linha 250 - Se o valor de B for igual a 1, isto significa que voc4 acertou um 
cruzador e o programa vai para a linha 330. 
linha 260 - Se o valor da variavel B for igual a 2, isto significa que voce acer¬ 
tou uma fragata e o programa vai para a linha 360. 
linha 270 - Se o valor da variavel B for igual a 3, isto significa que voce acer¬ 
tou um hidro-aviao e o programa vai para a linha 390. 
linha 280 - Imprime na posigao (T, L) uma letra X indicando que voce errou 
o tiro. 

5? Parte — Verificagao FIM de Jogo (linha 290 a 320) 

linha 290 - Subtrai 1 da variavel G, indicando que voce acaba de usar o tor¬ 
pedo. 

linha 300- Imprime na posigao (13, 20) a palavra SOBRAM seguido pelo 
valor da variavel G e pela palavra TORPEDOS. 
linha 310 - Verifica se acabaram os torpedos do seu arsenal, caso tenham aca- 
bado o programa vai para a linha 690. 
linha 320 - Manda o programa para a linha 200. 


6? Parte - Tiro Certeiro (linha 330 a 410) 

linha 330- Iguala a variavel C a 168 que 4 o codigo do inimigo que voce 
acertou, no caso um cruzador. 

linha 340 - Iguala a variavel V a 20, que 4 o numero de pontos que o curza- 
dor vale. 

linha 350 - Manda o programa para a linha 600. 

linha 360 - Iguala a variavel C a 171 que 4 o codigo do inimigo que voce acer¬ 
tou, no caso uma fragata. 

linha 370 - Iguala a variavel V a 10, que 4 o numero de pontos que a fragata 
vale. 

linha 380 - Manda o programa para a linha 600. 

linha 390 - Iguala a variavel C a 173 que 4 o cbdigo do inimigo que voce acer¬ 
tou, no caso um hidro-aviao. 

linha 410 - Iguala a variavel V a 30, que 4 o ntimero de pontos que o hidro- 
aviao vale. 

linha 410 - Manda o programa para a linha 600. 
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7? Parte — Rotina de Impressao das Coordenadas (linha 420 a 520) 

linha 420 - Iguala a varidvel N a 1. A variavel N guardarS os valores das coor- 
denadas numdricas que serao impressas na linha 440. 
linha 430 - Inicia um LOOP de 9 voltas que comepa no 1 e vai at6 o 17 pu- 
Iandode2em2. 

linha 440 - Imprime na posipao (0, L) a variavel N. 
linha 450 - Soma 1 a variavel N. 
linha 460 - Finaliza o LOOP. 

linha 470 - Iguala a variavel D a 38. A variavel D guardara o codigo das coor¬ 
denadas aifanumericas impressas na linha 490. 
linha 480 - Inicia um LOOP de 15 voltas que comepa no 1 e vai at<§ 29 pu- 
lando de 2 em 2. 

linha 490 - Imprime na posipao (T, 0) o caractere que tern o valor na varid- 
vel D. 

linha 500 - Soma 1 a variavel D. 

linha 510 - Finaliza o LOOP. 

linha 520 - Retorna ao programa principal. 

8? Parte — Rotina de colocapao aleatdria do Inimigo (linha 530 a 590) 
linha 530 - inicia um LOOP de 10 voltas. 

linha 540- Iguala a variavel T a um valor aleatorio que pode ser qualquer 
numero inteiro e fmpar entre 1 e 27. 

linha 550 - Iguala a variavel L a um valor aleatorio que pode ser qualquer 
numero inteiro e fmpar entre 1 e 17. 

linha 560- Imprime na posipao (T, L) o caractere cujo codigo esta armaze- 
nado na variavel C. A variavel C foi definida no programa princi¬ 
pal. 

linha 570 - Faz a posipao (L, T) na matriz A ter um valor igual ao da varia¬ 
vel V. A variavel V foi definida no programa principal, 
linha 580 - Finaliza o LOOP, 
linha 590 - Retorna ao programa principal. 

9? Parte — NaufrSgio do Inimigo (linha 600 a 680) 

linha 600 - Imprime na posipao (T, L) o caractere cujo codigo esta armazena- 
do na variavel C. A variavel C foi definida no programa principal, 
linha 610 - Imprime na posipao (0, 21) a palavra AFUNDOU .. . 
linha 620 - Soma a variavel P o valor da variavel V. 
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linha 630 - Imprime na posipao (0, 20) a palavra PLACAR - seguido do valor 
da variavel P. 

linha 640 - Subtrai 1 da variavel G. 

linha 650- Imprime na posipao (13, 20) a palavra SOBRAM seguido pelo 
valor da variavel G e pela palavra TORPEDOS. 
linha 660- Imprime na posipao (0, 21) 10 espapos em branco, para apagar 
a mensagem impressa na linha 610. 

linha 670 - Verifier se acabaram os torpedos do seu arsenal. Caso eles tenham 
acabado, o programa vai para a linha 690. 
linha 680 - Manda o programa para a linha 200. 

10? Parte — Finalizapao (linha 690 a 750) 

linha 690 - Imprime na posipao (0, 21) a mensagem "DESEJA JOGAR 
NOVAMENTE" ? (S/N). 

linha 700 - Se voce pressionar a tecla S o programa roda novamente. 
linha 710 - Se voce pressionar a tecla N o programa vai para a linha 730. 
linha 720 - Manda o programa para a linha 700. 
linha 730 - Limpa todo o conteudo da tela. 

linha 740 - Imprime na posipao (10, 10) a palavra FIM em vfdeo inverso. 
linha 750 - Para o programa. 

11? Parte — Finalizapao (linha 760 a 770) 

linha 760 - Armazena o programa em fita com o nome de "ATAQUE SUB- 
MARINO". 

linha 770 - Roda o programa. 


MODIFICAQ0ES 

Modificapao 1 

Voce pode alterar o numero de torpedos que possui no infeio do jogo, 
alterando a linha 180: 

180 LET G = numero de torpedos desejado 
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Modificagao 2 


Voce pode modificar o tempo que os inimigos permanecem no radar, 
alterando a linha 150. Quanto maior for o numero que voce colocar apos o 
comando PAUSE, maior sera o tempo que eles permanecerao no radar. 


QUADRO DAS VARlAVEIS DO PROGRAMA 


A - matriz que 6 uma copia da tela 
P - $eu placar 

C - valor do caractere que e impresso na rotina de impressao 
V - representagoes dos inimigos na matriz A 
G - numero de torpedos no arsenal 
B$ - coordenadas 

L - transforma as coordenadas entradas em valores da matriz 

T - transforma as coordenadas entradas em valores da matriz 

B - valor que ocupa a posigao (L, T) na matriz A 
D - codigo das coordenadas alfanumericas 
N - valor das coordenadas numericas 


E - variavel contadora de LOOP, 
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apendice A 


Neste apendice n6s apresentamos o programa SENHA com todas as 
modificagoes que foram sugeridas no primeiro capftulo. 


10 hRINi 

*1 •“ - '> ■: CKiyrt 11 

H ! J. uL 1 •■JLS'lrtn 

11 PRINT 

‘ r U U U C hJUEK NUMtHUS 

REPETIDOS 

t i 

12 INPUT 

H ■$ 

13 PRINT 

R $ 

1 4* P* h! I NT 

j . 1 u U HNTu Z' hLuhk I z n'J Z' 

TERR 0 NU 

r, «« 

MEROOUE EU UOU ESCOLHE 

K : 

15 INPUT 

x 

15 PRINT 

>; 

17 PRINT 

, , 1 EU POSSO E5C0LHEP 

NUMEROS EM' 

TRE 0 E ?" 

18 INPUT 

B $ 

19 PRINT 

5$ 

20 LET Y 

=C0DE 8$ 

21 PRINT 

“QURNTR5 CHRNCE5 7 0 


CE OUER TER PRP.fi RCERTRR 0 MUM 
ERG ?" 

22 INPUT Li 

H •_!' H H I NT r i Eo 1 H BtM » H.b U H K D Z. 
ENQURMTO EU ' ESCOLHO 0 NUME 

pn # ** 

*24 PAUSE 100 
25 CL5 
25 LET L $ = l * 

27 pnp .1 = 1 TO X 

28 LET L$ =L$ + 

29 NEXT J 

30 DIM N $ i X) 

35 DIM G$(X) 

40 DIM U$ (X) 

50 LET C=0 

0 KH N L-’ 

C “ C Cj -Zl j 

70 FOR 1=1 TO X 

80 LET N$iI)=CHR$ INT (RND*( - - 

'j p ‘t i ‘"i V 
it i i r i 
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pnpnH i r'A J} 


Neste apendice n6s iremos estudar as linhas 590 a 700 do programa 
PR^DIOS, tamb^m iremos estudar como fazer as devidas modificagSes nestas 
linhas. Para facilitar o estudo das linhas vamos desmembrar a linha 610 em 
varias outras linhas. As novas linhas ficarao assim: 


501 

r*» D f K s*r 
f~ n. JL ! '1 ! 

P ■ 

£1,0B $ 


502 

r~t rj t >• it 
rh.lrj s 

RT 

20,0;fl$ 


503 

PRINT 

RT 

C. -L 1 -Jt 1 1 


504. 

PRINT 

RT 

TO 

hi U 

505 

PRINT 

R i 

12,2;R$( TO 

.-" l 

505 

PRINT 

RT 

18,11;B$( TO 

O 

t«07 

PRINT 

H i 

17,11;fi$( TO 

o 

505 

PRINT 

RT 

8,7;B4( TO 2 

*"!!* *t 

509 

PRINT 

RT 

7,7; 1=1$ ( TO 2 

33 

510 

PR I NT 

R \ 

Sj , 19; B $ i T 0 

1 i 

*1* JL 

611 

PRINT 

t“{ i 

4,ly; h$ i Tu 

1 1 


EXPL1CAQAO 

linha 590 - Iguala a variavel A$ aos pregos martelados (30 pontos). 
linha 600 - Iguala a variavel B$ a plataforma (30 espagos inversos). 
linha 601 - Imprime na posigao (0,21) a variavel B$ inteira. 
linha 602 - Imprime na posigao (0,20) a variavel A$ inteira. 
linha 603 - Imprime na posigao (30, 21) dois espagos inversos. 
linha 604- Imprime na posigao (2, 13) a variavel B$, so que agora ela nSo 
e impressa inteira, so 6 impressa at6 o viggsimo oitavo caractere. 
linha 605- Imprime na posigao (2, 12) a variavel A$ at6 o vigSsimo oitavo 
caractere. 

linha 606 - Imprime na posigao (11, 18) a variavel B$ at§ o oitavo caractere. 
linha 607 - Imprime na posigao (11, 17) a variavel A$ atd o oitavo caractere. 
linha 608- Imprime na posigao (7, 8) a variavel B$ ate o vig^simo terceiro 
caractere. 

linha 609 - Imprime na posigao (7, 7) a variavel A$ at 6 o vigSsimo terceiro 
caractere. 
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linha 610 - Imprime na posipao (19, 5} a variivel B$ at6 o dScimo primeiro 
caractere. 

linha 610 - Imprime na posipao (19, 4) a varidvel A$ at6 o ddcimo primeiro 
caractere. 

As linhas 620 at6 a 700 sao LOOPs sucessivos para imprimir as escadas, 
linha 710 - Passa o computador para o modo SLOW, 
linha 720 - Retorna ao programa principal. 

Para voce modificar o predio copie uma das pSginas do apendice C e de- 
senhe o seu predio. Lembre-se que as duas ultimas colunas sao reservadas para 
o elevador. 

A figura do predio original e a que segue: 



o 2 4 6 8 10 12 14 16 18 30 22 24 26 28 30 


Compare a figura 1 com a explicapao das linhas 600 a 700 e modifique 
o predio para que ele fique como voc§ quer. 

Logo apos a modificapao do predio conte o ndmero de pregos qu exis- 
tem para ser arrancadds e subtraia 1 e coloque o valor encontrado na linha 
360, ela ira ficar assim: 

360 IF DE = valor encontrado THEN GOTO 540 
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apendice C 


Se voce quiser alterar o display de algum jogo, deverS relocar algumas posi- 
poes de PRINT. Para isto estamos publicando algumas cdpias da tela de ma- 
neira que voce possa se organizar. 
























apendice D 


Neste apSndfce sao fornecidos os cddigos decimais do TK com os seus 
respectivos codigos em hexadecimal e seus caracteres, que servirao para o lei- 
tor quando for modificar algum programa. 
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USANDO 

LINGUAGEM DE MAQUINA 

APLICAQOES EM ASSEMBLY Z80 
MARIO SCHAEFFER 

Uma obra original, realmente didatica, 
para aprendizado e consulta. 

lnstru$oes para o uso de linguagem de 
maquina em computadores compatfveis 
com Sinclair (RINGO, ZX-81, TS-1000, 
NEZ 8000, TK-82C, TK-85, TK-83). 

Como usar as sub-rotinas da ROM, 
inclusive para calculos cientfficos. 

Mario Shaeffer mostra com muita in- 
teligencia e didatica, como fazer verda- 
deiros milagres de programaqao utilizando 
Linguagem de Maquina, fornecendo mui- 
tfssimos exemplos de aplicaqao e brindan- 
do o leitor com uma s6rie de programas 
uteis e divertidos. 

DISSECANDO JOGOS 
em BASIC TK comentado linha por linha 
CARLOS EDUARDO ROCHASALVATO 

Os sete jogos contidos neste volume 
tern uma caracterfstica unica: o leitor par- 
ticipa do processodecriaQaoacompanhan- 
do a montagem linha por linha. 

Modificapoes e aperfeipoamentos sao 
propostos e resolvidos com detalhes. Ao 
terminar este livro o leitor a!£m de ter 
sete jogos geniais, ter<§ adquirido a habili- 
dade de programar com criatividade. 

Uma obra didatica indispensSvel ao 
usucirio de um micro da linha SINCLAIR: 
Ringo R-470, CP-200, TK-82/83/85, AS- 
1000, SINCLAIR ZX-81 ou TS-1000. 
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JOGOS EM LINGUAGEM 
DE MAQUINA - VOL I 
Seiecionados por PIERLUIGI PIAZZI 

Use suas habilidades, sua inteligSncIa e 
seus refiexos: viva os jogos que voc§ mes- 
mo digitou. 

JOGOS EM LINGUAGEM DE MA- 
QUINA e um livro fascinante, rico em ex¬ 
plicates do qua! voce extrair^ uma quarv 
tidade enorme de programas. 

A digitagao dos programas nao exige 
conhecimento de linguagem de maquina. 


JOGOS EM LINGUAGEM 
DE MAQUINA-VOL. II 
Seiecionados por PIERLUIGI PIAZZI 
Para quern ja se deliciou com o Volu¬ 
me l desta colegao, mais programas e jo¬ 
gos interessantfssimos e fascinantes: 
JOGOS DEAQAO: 

- WARDOZ 

- CICLOTRON 

- PACMAN 

— CORRIDA DO OURO . 

- TONEL 

JOGOS INTEL/GENTES: Criatividade 
e um magnffico xadrez, com instrugoes 
detalhadas e informagoes curiosas sobre 
este jogo tao antigo e tao atual. 

Todos os jogos em ASSEMBLY Z-80, 
de execuglo r^pida. Uma obra de lazer 
e de consulta para usuarios de micro-com- 
putadores compatfveis com SINCLAIR 
ZX-81: TK-82, RINGO, R-470, CP-200, 
TK-83, AS-1000 e TK-85. 

Pelo prego de uma fita, uma qtiantida- 
de incrfvel de programas geniais! 


JOGOS EM LINGUAGEM 
DE MAQUINA - VOL. Ill 

Seiecionados por PIERLUIGI PIAZZI 

Continuando a s6rie, mais jogos in6di- 
tos: 

- INVASAO 

- I.R.A. 

- VERMES DE AREIA (Duna) 

- BASQUETE 

- FROGGIE 
e muitos outros. 

Desenvolva o lado direito de seu cere- 
bro (visao espacial) jogando o fascinante 

dEdalo. 

A digitagao nSo exige conhecimento 
de Linguagem de Maquina. 

Jogos em ASSEMBLY Z-80 para com- 
putadores compatfveis com SINCLAIR 
ZX-81 (TK-82/83/85, CP-200, TS-1000, 
etc.)„ 

COLEgAO DE PROGRAMAS 
VOLUME III 

RICARDO DE FAYETTI SIQUEIRA 

Aos iniciantes no uso de um micro- 
computador pessoal, nada melhor, para o 
aprendizado, do que a digitagao de pro¬ 
gramas e sua posterior andlise e adapta- 
gao. Esta colegao pretende fornecer sub- 
sfdios para o aprendizado e o lazer do 
usu2rio, apresentando tanto programas de 
jogos, quanto programas didaticos na £rea 
de matematica, da ffsica e da qufmica. 

0 Volume III da COLEQAO DE PRO¬ 
GRAMAS e portanto indicado para estu- 
dantes, adolescentes e iniciantes na fasci¬ 
nante t^cnica (e arte) de programar um 
computador pessoal. 
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CRIANDO EM 

LINGUAGEM DE MAQUINA 

SAMUEL EJCHEL 

Nao basta se conhecer as instrugoes do 
ASSEMBLY para se criar um programa 
interessante: existem truques e "dicas" In- 
dispensaveis para o bom programador. 
Gerenciando a tela 
Utilizando o teclado 
Usando o Joystick 
Gerando movimentos multiplos 
Criando opgoes 
Implementando "requintes" 

Em cada capftulo um jogo original, to- 
talmente explicado, ilustrando os truques 
de programagSo utilizados. 

Uma obra indispensdveis para quern 
programa em micros da linha SINCLAIR: 
CP-200 - RINGO - TK-82/83/85 - AS- 
1000. 


TABELA DE MNEMONiCOS Z80 
Tabela de cartolina plastificada para 
consulta rapida das instrugoes do Z80, 
seus codigos hexadecimals e abreviagoes 
mnemonicas. Indispensdvel para quern 
programa em linguagem de maquina. 

Para computadores da linha SIN¬ 
CLAIR ZX81 (TK-82/83/85, CP-200, 
Ringo, AS-1000) e TRS80 (CP-300/500, 
JR SYSDATA, D-8000/8001/8002, 
DGT-I00/T0t). 



BASIC TK - VOL. II 

PIERLUIGI PIAZZI/FLAVIO ROSSINI 

A continuagao de um dos maiores su- 
cessos editoriais em informatica. 

Aprofundamento do BASIC com es- 
trutura de programagao. 

Truques utilizando o sistema operacio- 
nal dos micros da linha SINCLAI R*(ZX- 
81, TK-82/83/85, CP-200, RINGO). 

> 

Uma obra elaborada com os mesmos 
cuidados diddticos do Volume I. 



EVOLUINDO NO BASIC TK 

BERNARDO STEIN 

Uma coletanea de programas em BASIC 
explicados detalhadamente^que transfor¬ 
ma o micro em: 

O DESENHISTA 
OSENTINELA 
O PROFESSOR 

e mais uma serie de interessantfssimasfun- 
goes. 

Um livro didatico escrito num estilo 
simples e bem humorado para usuarios de 
TK-82/83/85, CP-200, RINGO e ZX-81. 


Querendo adquirir um destes livros escreva para: 

ALEPH 


PUBLICAQOES E ASSESSORIA PEDAGOGICA LTDA. 
Av. Brig. Faria Lima, 1451 - conj. 31 
01451 - Sao Paulo - SP - Tel: (011) 813-4555 
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LIBERTE 0 GENIO DO SEU MICRO 




M 


CURSO 


zao 






f )£b CURSO DE ASSEMBLY 

* jr^ , ' O scu micro de Idgica SINCLAIR 

O (RINGO, CP-200, TK82/83/85, AS 

^ s~i: ^ iOOO, etc.) bcm como os compatfveis 

t— Ul V* com TRS-80, tern um microproccssa- 

\ dorZ-80. 

Aprendendo Linguagein dc Maquina 
(ASSEMBLY Z 80) vocc podcra co- 
mandar dirctamcntc o microproccssador 
cstruturando programas muitas vczcs mais rapidos do quc 
cm BASIC e gastando muito menos mcmoria. 

ASSEMBLY como fez o FLAVIO ROSSINI (autor do LIN- 
GUAGEMDE MAQUINA PARA O TK . Ed. MODERNA) assistindo as aulas do 
professor FRANCISCO A.S. DE OLIVEIRA. 

^“.nno 1 (4 a ° h ° ra . s ) iP* n . (40 horas ) sI ° no NOCLEO DE ORIENTACAO 
,, ~ ® rl S- Faria Lima, 1451 conj. 31, cm vSrios horarios, inclusive 

aos sabados. Para Informayoes ligue para (Oil) 813-4555. 
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impresso na 

planimpress grafica e editora 
rua anhaia, 247 - s.p. 






